Hallo @ all ,
ich bin gerade am programmieren von einem sehr simplen Dateiübertragungsprogramm und habe folgendes Problem :
Da ich ein Prob mit IndyTCP ( mein Delphi 2006 findet idstreamVCL nicht ( egal ob in der uses - Klausel
enthalten oder nicht ), Dateiübertragung mit
TCP scheidet deshalb aus und ich nehme deswegen TidTFTP her... )hatte,
habe ich mich darauf gestürtzt , die Übertragung mit dem TFTP hinzubekommen , und es läuft eigentl. alles ganz gut
, Dateinamen bekomme ich über
TCP und abschicken mit put ist auch kein Problem , aaaber : jedesmal wenn ich eine
Dateiabschicke friert die Form ein und dann dauert's 'ne Minute und rauskommt in meinem Log : "Timeout" .
Ich denke jetzt mal ,das mein Problem das Empfangen der Dateien ist , und da ich mich nicht wirklich mit den Indies
auskenne ( sagen wir ich bin ein "Anfänger" ) ist das auch sehr wahrscheinlich .
Entweder ich habe mich dumm angestellt oder es gibt keine wirklichen Hilfen zu dem Thema (vlt. habe ich aber auch
nur was übersehen) : TidTFTP.Onwritefile
Hier mal mein QK :
Delphi-Quellcode:
procedure TForm12.RecWriteFile(Sender: TObject; var FileName: string; //Name des Tftp servers = rec
const PeerInfo: TPeerInfo; var GrantAccess: Boolean; var AStream: TStream;
var FreeStreamOnComplete: Boolean);
var fn:string;
fstream:Tstream;
begin
Grantaccess:=true;
fn:=Extractfilename(filename); //pathm ist das Programmverzeichnis
fn:=pathm+'\'+fn;
memo1.Lines.Add('fn : '+fn); //log-Ausgabe
fstream:=Tfilestream.Create(fn,fmcreate); //Hier liegt irgendwo der Fehler...
astream.Position:=0;
fstream.copyfrom(astream,astream.Size);
fstream.Free;
astream.Free;
Freestreamoncomplete:=true;
end;
Hoffe , dass mir irgenjemand helfen kann , danke schon mal im Voraus...
Mfg,Lord
