ICQClient Dateien empfangen

[Joe_the_Junkie]

Moin Moin,
Ich hab ma ein wenig mit der TICQLib rumprogrammiert, aber das Empfangen von Dateiein tut nicht...

Delphi-Quellcode:

procedure TForm1.ICQClient1FTRequest(Sender: TObject;
  RequestRec: TFTRequestRec);
begin
if da = true then
  begin
    ICQClient1.FTResponse(Requestrec,true,'');
  end
else
  begin
    ICQClient1.FTResponse(Requestrec,False,edit2.Text);
  end;
end;

procedure TForm1.ICQClient1FTStart(Sender: TObject; StartRec: TFTStartRec;
  FileName: String; FileSize, Speed: Cardinal);
begin
  ICQClient1.FTStartResponse(StartRec);
  fs := TFileStream.Create(FileName,fmCreate or fmShareExclusive);
end;

procedure TForm1.ICQClient1FTFileData(Sender: TObject; UIN: Cardinal;
  Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
if LastPacket = false then
  fs.ReadBuffer(Data,DataLen)
else
  begin
    fs.Read(Data,Datalen);
    fs.Free;
    ICQClient1.SendMessage(UIN,'Ich hab die Datei! ;-)');
  end;
end;

Also er kommt zum "ONFTREQUEST"...
Aber dann ist Feierabend.

Wenn ich "Accept" auf false stelle, also ihm nicht erlaube Dateien anzunehmen kommt auch ein Cancel an den User zurück. Wenn ich aber die Dateiannahme erlaube, dann passiert gar nichts mehr.

Das Programm kommt weder zum "FTINIT" noch zum "FTSTART".

Wüsste jemand von euch vielleicht eine Lösung. Wäre euch sehr verbunden. Vielen dank.

MfG Joe the Junkie