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...