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