Schatz
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток вам.
Еще раз обращусь, своими силами не получилось справиться.
Есть пример от Indy \Indy9Demos\IdTCPDemo\Client
Пытаюсь переложить этот пример на ActivX(OCX)
никак не получается переложить, постоянно какие то проблемы возникают, может кто уже делал нечто подобное, или может кто знает как это сделать малой кровью, посоветуйте пожалуйста.
Сейчас столкнулся с тем что:
Есть класс
TClientHandleThread = class(TThread)
private
CB: TCommBlock;
procedure HandleInput;
protected
procedure Execute; override;
end;
Есть Событие ReadData(Data:String);
Вот процедуры класса:
procedure TClientHandleThread.HandleInput;
begin
if CB.Command = 'GetClients' then
MessageDlg ('Список подключеных клиентов'+#13+CB.Msg,
mtInformation, [mbOk], 0)
else
if ??????????????.FEvents <> nil then ??????????????.FEvents.OnDataRead(CB.Msg);
end;
procedure TClientHandleThread.Execute;
begin
while not Terminated do
begin
if not Client.Connected then
Terminate
else
try
Client.ReadBuffer(CB, SizeOf (CB));
Synchronize(HandleInput);
except
end;
end;
end;
Procedure StopClient;
Затык в том что я не знаю как правильно достучаться до FEvents и не совсем уверен в правильном ли направлении я изначально пошел |
на доп. форме есть две кнопки: первая ВХОД (подключение к БД) другая ВЫХОД (закрытие всего приложения при невозможности входа) 