Подскажите, пожалуйста. Сам не могу сообразить, а очень нужно.

← →
diokant (2003-02-21 16:10) [0]

Подскажите, пожалуйста. Сам не могу сообразить, а очень нужно.
Я создаю динамически объект типа TNMFtp.

new(ConnectFTP1);
ConnectFTP1^:=TNMFtp.Create(nil);
ConnectFTP1^.Vendor := NMOS_AUTO;
ConnectFTP1^.Host := Adress_Net;
ConnectFTP1^.UserID := User_ID;
ConnectFTP1^.Password := Passw_ID;
ConnectFTP1^.Connect;
ConnectFTP1^.Mode(MODE_BYTE);
ConnectFTP1^.ChangeDir(S_Rab);
ConnectFTP1^.nList;

Нужно описать поведение объекта при возникновении события ONListItem. Оно возникает после вызова метода ConnectFTP1^.nList

Если статически - поместить на форму компонент NMFTP1 , то можно описать процедуру и добраться к переменной Listing в процедуре TfmMain1.NMFTP1ListItem(Listing: String);

Как описать процедуру для объекта, созданного динамически
Я пробовал ConnectFTP1^.OnListItem:=fmMainServ.NMFTP1ListItem; получается,
но меня это не устраивает.

← →
diokant (2003-02-21 16:17) [1]

Как сделать по человечески?

← →
Calm (2003-02-21 16:23) [2]

ConnectFTP1:=TNMFtp.Create(nil);
ConnectFTP1.Vendor := NMOS_AUTO;
ConnectFTP1.Host := Adress_Net;
ConnectFTP1.UserID := User_ID;
ConnectFTP1.Password := Passw_ID;
ConnectFTP1.Connect;
ConnectFTP1.Mode(MODE_BYTE);
ConnectFTP1.ChangeDir(S_Rab);
ConnectFTP1.nList;

?

← →
diokant (2003-02-21 16:57) [3]

А разве это не тоже самое , проблема - то не в этом.

Подскажите, пожалуйста. Сам не могу сообразить, а очень нужно. Найти похожие ветки