ich habe folgenden code in meinem indy TCPserver execute:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| if pos ('login:',remotecmd) = 1 then begin
if loginbutton.Enabled = true then begin
tempstr := (copy(remotecmd,8,Length(remotecmd)));
useredit1.Text := gettoken (tempstr,'|',1);
passedit1.text := gettoken (tempstr,'|',2);
LogInButtonClick (self);
writeLn ( 'User wurde eingeloggt.' );
end else begin
writeLn ( 'Schon ein User eingeloggt.' );
end;
end; |
so, wenn das in dem execute des servers ausgeführt wird, weil ein client so eine anfrage gestellt ha, dann wir die login button routine nur teilweise ausgeführt. das sieht so aus, als ob das programm einfach mal ein paar zeilen in der ausführung vergisst.
kann das sein, weil indy ja das execute ereignis in einem threat ausführt ??
wenn ja: wie müsste der code denn dann lauten ?
danke für die hilfe !
In the beginning was the word.
