TFIleStream und Pointer

[goose33]

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