Zitat von
storm1988:
Zum Beispiel in diesem
Beispiel von ManuMF müsstest du einfach die Procedure "procedure TSendeForm.DateiSendeButtonClick(Sender : TObject);" einfach immer in einer Schleife aufrufen wo bei du dass connect natürlich weglassen müsstest.
mhh das ist für Indy10 und ich habe die
standart Indy Kompos die bei D7 mitinstalliert werden. Mir fehlt zb. die Datei
IdStreamVCL.dcu
und ich habe dieses hier benutzt um die Bilder zu versenden:
Delphi-Quellcode:
procedure tform1.sendimage;
var
fs: TFileStream;
begin
with IdTCPClient1 do
begin
idtcpclient1.Host:=edit1.Text;
fs := TFileStream.Create(fname+'.jpg', fmOpenRead or fmShareDenyWrite); //Datei in FileStream einlesen
idtcpclient1.Connect;
try
OpenWriteBuffer; //stellt sicher, dass alle Daten versendet werden
try
WriteStream(fs, true, true, 0); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird}
CloseWriteBuffer;
except
CancelWriteBuffer;
raise;
end;
finally
// Disconnect;
fs.Free;
end;
end;
end;
dabei habe ich auch das connect und disconnect weggelassen bzw. das connect vor der procedure ausgeführt. dann wurde das Bild einmal geschickt und danach nicht mehr...
hibbert