TidTFTP - ONWritefile ?

[Lord of Ghosts]

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 :dp: