hallo muetze,
frage?
kann ich das bei meinen client gleich so reinschreiben
bei einer procedure ohne das ich im objektinspektor was
anklicke
ich meine nach dem procedurename >"(Sender: TObject;
Socket: TCustomWinSocket);"
jetzt hab ich ja mit dem tipp vom pappanappa 2 eigene proceduren gemacht.
Code:
procedure socketreadfile (Sender: TObject;
Socket: TCustomWinSocket);
und
procedure tform1.socketreadtree (Sender: TObject;
Socket: TCustomWinSocket);
wo ich die socketreadtree in private decklariert mußte weil er
sonst sie nicht erkann hat.
nur ich hänge jetzt bei diesem verdammten aufruf im wirklichen
clientsocketread
Code:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
if status=0 then
SocketReadTree (self)
else if status=1 then
SocketRedFile (self)
end;
er schreit immer zu wenig parameter.
mfg vader