Einzelnen Beitrag anzeigen

Hanswurst

Registriert seit: 21. Mai 2003
Ort: Mittelfranken
118 Beiträge
 
Delphi 7 Enterprise
 
#1

INDY: Komisches Server.Execute-Problem

  Alt 6. Aug 2003, 17:12
Servus Leute
ich hab mir heute (schonwieder) ein kleines ChatProggi zusammengebaut
es besteht aus 2 einzelnen Programmen , eines mit INDY TCP-Client und eines mit Server

wenn ich schreibe:

Code:
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(AThread.Connection.ReadLn);
end;
, kann ich zwar mit dem Server Nachrichten empfangen und auflisten , aber wenn ich mit
AThread.Connection.WriteLN Nachrichten verschicke , kommt die Meldung:
"Zugriffsverletzung 00000000 bei Adresse 00000000" , jeweils 8 Nuller


wenn ich aber :

Code:
procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var MSG : String;
begin
AThread.Connection.ReadLn(MSG);
Memo1.Lines.Add(MSG);
end;
habe , kommt die Meldung nicht , aber jede Meldung , die vom Client kommt , wird als " " angezeigt ..
also kommen nur Leerzeichen beim Server an , obwohl der Client ganz normale Zeichen schickt ..

also irgendwie Merkwürdig , oder ??

da ja die beiden Prozeduren ja genau das selbe bewirken , nur anders geschrieben sind , oder ??

CU

Edit: DelphiTags berichtigt ..
  Mit Zitat antworten Zitat