Forum: Netzwerke
Delphi
by F0rc3,
13. Jun 2007
*freu* hab herausgefunden, wie man zumindestens eine Datei mit der TICQlib empfängt :)
var uppto: string;
_file: TFilestream;
implementation
procedure TForm1.ICQClient1FTStart(Sender: TObject; StartRec: TFTStartRec;
FileName: string; FileSize, Speed: Cardinal);
Forum: Netzwerke
Delphi
by F0rc3,
13. Jun 2007
hab jetzt endlich rausbekommen, wie man eingehende Filetransfers akzeptieren kann: :)
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:...
Forum: Netzwerke
Delphi
by F0rc3,
12. Jun 2007
Hm, hab auch ein paar Probleme den Filetransfer hinzukriegen ^^
Allerdings ist TICQClient die einzige Komponente die ich kenne und auch noch halbwegs funktioniert - welche würdest du denn nehmen?