Hallo,
ich übertrage einen Stream vom Client zum Server mit den Indy TCP-Komponeten.
Funzt auch alles prima, bin aber jetzt bei der Fehlerbehandlung.
Wenn der Server nicht läuft bekomme ich eine Exception beim Client, ist OK.
Wenn aber beim Server eine Exception auftritt, z.B. er kann keine Datei aus dem Stream erzeugen, denkt der Client es hat alles geklappt, da keine Exception weiter gereicht wird...
Benutze den Server so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
fStream:TFileStream;
begin
fStream := TFileStream.Create('c:\empfang.txt',fmCreate);
AThread.Connection.ReadStream(fStream,-1,true);
FreeAndNil(fStream);
end; |
Was kann man denn da machen?
Wie kann ich dem Client mitteilen, das alles OK war, oder ein Fehler aufgetreten ist.
Muss ich dann auf dem Client auch noch einen Server laufen lassen?
Vielen Dank.
