Unglaublich aber wahr,
ich kriege den sch.. nicht zu stande.
Problemm:
Cleint macht Connect bei Server, und geht auf Empfang und zwar so :
Delphi-Quellcode:
Type
TE = Class(TTHread)
private
protected
Procedure Execute; override;
public
Constructor Create;
End;
....
Var
T_CLI : TIdTCPClient;
...
Procedure TE.Execute;
Begin
Repeat
If T_CLI.Connected Then Form1.CLIENT_AUSWERTEN( T_CLI.Socket.ReadLn);
Until Terminated;
End;
Constructor TE.Create;
Begin
Inherited Create(False);
End;
Procedure TForm1.CLIENT_AUSWERTEN( Txt : String);
Begin
If Txt = '_OK_' Then
Memo1.Lines.Add('- Alles OK, kann Los gehen.')
Else
Memo1.Lines.Add('-NICHT GANZ OK');
End;
Grob und ganzen so habe ich es versucht zu lösen.
Es funktioniert aber nicht !
Zur verfügung habe ich Delphi 2005 mit
Indy 10.
Was mache ich falsch ?
Gruss
seba