Hallöhen,
danke Euch erst mal für die Antworten !
Ich hab es jetzt so versucht, bekomme aber imme rnen schwersten Fehler, der nichtmal abzufangen geht.
Delphi-Quellcode:
(( Global ))
var
SendStream: TFileStream;
RecvStream: TFileStream;
// Aufruf wenn jemand eine Datei senden will ( geht )
procedure TMainForm.ICQFTRequest(Sender: TObject;
RequestRec: TFTRequestRec);
begin
if MessageDlg(IntToStr(RequestRec.UIN)+' Möchte Ihnen eine Datei senden. Annehmen ?', mtConfirmation , [mbOK, mbCancel], 0)= mrOK then begin
Mess('Angenommen');
ICQ.FTResponse(RequestRec, True, '');
RecvStream:= TFileStream.Create(ExtractFilePath(ParamStr(0))+RequestRec.FileName, fmCreate);
end else begin
ICQ.FTResponse(RequestRec, False, '');
Mess('Dateiempfang Angebrochen');
end;
end;
// hier ist das Problem
procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal;
Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
if not LastPacket then begin
try
RecvStream.Write(Data^, DataLen);
RecvStream.Seek(0,soFromEnd);
Mess('write');
except
Mess('kann not Write');
end;
end else begin
Mess('File End');
RecvStream.Destroy;
end;
end;
Also da kommt ein Fehler mit so ner Art Compilerfenster.
Hmm, keine Anhnung warum das nicht geht ?
Matthias