TICQClient - Filetransfer

[F0rc3]

hab jetzt endlich rausbekommen, wie man eingehende Filetransfers akzeptieren kann:

Delphi-Quellcode:

procedure TForm1.ICQClient1FTRequest(Sender: TObject;
  RequestRec: TFTRequestRec);
begin
ICQClient1.FTResponse(RequestRec, True, '');
end;

Alelrdings wird die Datei nicht übertragen, da dann noch kein Ergeignis deklariert wurde was passiert wenn der Filetransfer gestartet wird (Miranda zeigt an: Moving to next file, es wird also auf eine Reaktion vom Empfänger gewartet)

Wahrscheinlich kann man das über folgende Procedures das irgendwie selbst hinkriegen:

Delphi-Quellcode:

procedure TForm1.ICQClient1FTInit(Sender: TObject; UIN, FileCount, TotalBytes,
  Speed: Cardinal; NickName: string);
begin

end;

procedure TForm1.ICQClient1FTFileData(Sender: TObject; UIN: Cardinal;
  Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin

end;

procedure TForm1.ICQClient1FTStart(Sender: TObject; StartRec: TFTStartRec;
  FileName: string; FileSize, Speed: Cardinal);
begin

end;

Hat jemand eine Idee??


/edit: mit

Delphi-Quellcode:

procedure TForm1.ICQClient1FTStart(Sender: TObject; StartRec: TFTStartRec;
  FileName: string; FileSize, Speed: Cardinal);
begin
icqclient1.FTStartResponse(startrec);
end;

Startet man den Filetransfer - allerdings ist sozusagen ein "Dummy-Transfer", da man ja nicht gesagt hat wohin die Datei gespeichert werden soll...