Da bi program ostao aktivan i po zavrsetku svih komandi ubacio sam while loop sa GetMessage() i sve to izgleda ovako nekako:
program Project1;
uses
Windows;
var
clsocket: TClientSocket;
{$R *.res}
begin
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
Napravio sam svoju classu kako bih mogao da definisem svoje event handlere. Potrebni su mi handleri za TClientSocket ili TidIRC (jos razmisljam o ovome, ali i nije mnogo bitno za moj trenutni problem). Sve je to izgledalo ovako:
program Project1;
uses
Windows,
ScktComp;
type
TClsocket = class(TClientSocket)
procedure onWrite2(Sender: TObject; Socket: TCustomWinSocket);
end;
var
Msg: Tmsg;
clsocket: TClientSocket;
{$R *.res}
procedure TClsocket.onWrite2(Sender: TObject; Socket: TCustomWinSocket);
begin
{wirte stuff... nebitno }
end;
begin
TClsocket.Create(clsocket);
clsocket.OnWrite:=TClsocket.onwrite2; >>>>> ovde se javlja error tipa, Incompatible types TSocketNotifyEvent and procedure
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
Gde sam pogresio? Ne kapiram bas najbolje ovo sa classama..