Обращение к компонентам формы приложения из dll

[EaRLL]

В общем, есть программа, есть для неё длл. Процедура из длл должна изменять данные в необходимом мне memo. Но вот загвоздка, я не могу передать данные в программу, пишет ошибку:

procedure WP_UP(WP_Main: TForm);
begin
 {...}
    WP_Main.Memo1.Lines.Add(WP_HTTP.Response.Location);
 {...}
end;

=========
[DCC Error] wplib.common.dpr(39): E2003 Undeclared identifier: 'Memo1'
[DCC Error] wplib.common.dpr(39): E2066 Missing operator or semicolon

Т.е. он распознает ( в uses есть "Forms") форму, но не распознает сам memo на ней. Путём нехитрых телодвижений вычислил, что больше ошибок в процедуре нет, только эта.


Что бы проверить "правильность вызываемости" я сделал тестовую процедуру:

procedure WP_UP(WP_Main: TForm);
begin
  ShowMessage(WP_Main.Caption);
end;

С ней всё в порядке, выводит месагу с тайтлом формы.


Выручайте люди добрые.

[maLoy*508]

а если попробовать искать компонент TMemo на форме и в случае если компонент найден, то добавлять строку?

[EaRLL]

Сообщение от maLoy*508

а если попробовать искать компонент TMemo на форме и в случае если компонент найден, то добавлять строку?

Это каким образом?

"Помедленнее пожалуйста, я записываю"

[Stilet]

но не распознает сам memo на ней.

Правильно делает. Класс TForm не снабжен компонентами. Это голая форма. Тебе нужно передавать туда либо переменку своей производной формы, либо:

procedure WP_UP(WP_Main: TForm);
var i:integer;
begin
 {...}
with WP_Main do
  for i:=0 to ComponentsCount-1 do
   if (Component[i] is TMemo)and(TMEmo(Component[i]).name='Memo1') then begin
    TMEmo(Component[i]).Lines.Add(WP_HTTP.Response.Location);
    break; 
   end;
 {...}
end;

[maLoy*508]

Сообщение от EaRLL

Это каким образом?

"Помедленнее пожалуйста, я записываю"

Виталий, уже показал куском кода то что я имел ввиду -)

[EaRLL]

Сообщение от Stilet

Правильно делает. Класс TForm не снабжен компонентами. Это голая форма. Тебе нужно передавать туда либо переменку своей производной формы, либо:

procedure WP_UP(WP_Main: TForm);
var i:integer;
begin
 {...}
with WP_Main do
  for i:=0 to ComponentsCount-1 do
   if (Component[i] is TMemo)and(TMEmo(Component[i]).name='Memo1') then begin
    TMEmo(Component[i]).Lines.Add(WP_HTTP.Response.Location);
    break; 
   end;
 {...}
end;

Про класс - да, я понял про это когда написал сообщение)

А вот по твоему коду (у тебя несколько шибок синтаксических в коде - правильнее ComponentCount и Components ): я вставил, всё собралось, но вот упорно не хотело вставлять строки мне в мемо.
Путём нехитрых телодвижений я выяснил, что у меня в Application.ComponentCount только одна запись. Я её вывел

ShowMessage(TObject(Application.Components[0]).ClassName);

И вот что он мне выдал: THintWindow (т.е. никаких больше компонентов, в том числе и мемо и др не найдёт)

[Аватар]

Application.ComponentCount при каких делах? Речь то о WP_Main идет, в нем и искать

[Stilet]

у тебя несколько шибок

Ну будем считать что я слегка "шибанутый" )

THintWindow (т.е. никаких больше компонентов, в том числе и мемо и др не найдёт)

Ты форму пытаешся из хендла окна высосать? SpyХХ тебе в помошь, дабы узнать какие окна содержит приложение, которое ты кусать собрался.

Аватар

Кстати да. Именно поэтому SpyXX тебе в руки.

[EaRLL]

Немного переделал, получилось вот так

with WP_Main do
  for i:=0 to ComponentCount-1 do
   begin
     if (TObject(Components[i]).ClassName = 'TMemo') and (TMemo(Components[i]).name='Memo1') then begin
      TMemo(Components[i]).Lines.Add(log_string);
      break;
     end;
   end;

всё работает, по такому "(Component[i] is TMemo)" ему не захотелось.
Но вот такой способ меня немного омрачает, ведь пока на форме два, три десятка компонентов - это относительно быстрый способ, а если там добрая сотня или две - искать будет день и ночь.

[Stilet]

искать будет день и ночь.

Откуда такие сведения? Экспериментально проверял?

там добрая сотня или две

Значит это не приложение а бурда на постном масле.