Hi,
ich empfange und versende Dateien mit den
Indy TCP Komponenten (Server & Client). Aber zusätzlich werden noch Texte verschickt.
Wie kann ich nun einen Text
(SendLN) von dem Empfang einer Datei unterscheiden?
So empfange ich bis jetzt die Dateien:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
fs: TFileStream;
stream: TIdStreamVCL;
SizeOfIncomingStream: integer;
begin
fs := TFileStream.Create(extractfilepath(application.ExeName)+'tmp\file.tmp', fmCreate or fmShareExclusive);
stream := TIdStreamVCL.Create(fs);
with AContext.Connection do
try
SizeOfIncomingStream := IOHandler.ReadInteger; //Größe des Streams empfangen
IOHandler.ReadStream(stream, SizeOfIncomingStream); //und übergeben
finally
Disconnect;
fs.Free;
end;
end;
thx hibbert