TFIleStream und Pointer

[goose33]

Hallöchen,

ich hab ein kleines Problemchen mit der TICQ Komponente.
Beim empfangen von Dateien gibts da ne Procedure die sieht so aus :

Delphi-Quellcode:

procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal;
  Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin

end;

Wie speichere ich denn da die Daten ?


Matthias

[Dax]

Du nimmst dir einen Filestream und dereferenzierst Data:

Delphi-Quellcode:

fs := TFileStream.Create(DateiName, fmCreate);  // Sollte global ausgeführt werden

procedure OnReceive({...});
begin
  fs.Write(Data^, DataLen);
  if LastPacket then 
    fs.Destroy;
end;

BtW: Ist nur eine Idee, musst es wohl noch ausbauen.

[SirThornberry]

Delphi-Quellcode:

procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal; Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
var LStream: TFileStream;
begin
  LStream := TFileStream.Create('e:\text.txt', fmCreate);
  LStream.Write(Data^, DataLen);
  LStream.Free;

[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

[jim_raynor]

Und was steht in der Fehlermeldung drin

[goose33]

Hallöchen,

also da kommt das grosse fenster blos, keine richtige Fehlermeldung, das is ja das blöde.
Ich hab aber mal ein bidchend davon gemacht und hier angehangen.

Glaub aber nicht das das wirklich hilft


Matthias

[Muetze1]

Delphi-Quellcode:

// hier ist das Problem
procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal; Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
  If ( Assigned(RecvStream) ) Then
  Begin
    RecvStream.Write(Data^, DataLen);
    
    If ( LastPacket ) Then
      FreeAndNil(RecvStream);
  End;
end;

[goose33]

Hallöchen,

dank Euch schon wieder für die Antwort,
leider geht es auch wiede rnicht.
Kommt wieder deas gleiche. Wieder so ein Fensterchen mit irgendwelchen Zahlen.
Ich hab das ganze was zu dem File Senden gehört mal zusammengefasst und in ein kleines Projekt gemacht. Hier der Code...ist vielleicht für Euch ein
bischen besser wegen der Übersichtlichkeit.
Ich weiss nicht mehr was ich noch probieren soll.
Falls jemand von Euch die ICQ Kompomente hat könntet Ihr das ja mal ausprobieren.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ICQClient, ICQWorks, ExtCtrls;

type
  TForm1 = class(TForm)
    ICQClient1: TICQClient;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    edFile: TLabeledEdit;
    btnLogIn: TButton;
    edOnline: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure btnLogInClick(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);
    procedure ICQClient1SendFileStart(Sender: TObject; UIN: Cardinal;
      SendFileRec: TSendFileRec);
    procedure ICQClient1SendFileData(Sender: TObject; UIN: Cardinal;
      Data: Pointer; var DataLen: Cardinal; var IsLastPacket: Boolean);
    procedure ICQClient1OnlineInfo(Sender: TObject; UIN: String;
      Port: Word; InternalIP, ExternalIP: String; OnlineTime: TDateTime;
      Idle: Word; ICQVersion, MirandaVersion: Cardinal; ProtoVer,
      UserCaps: Byte);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  SendStream: TFileStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;

begin
    if OpenDialog1.Execute then  begin
      FileName:=OpenDialog1.FileName;
      edFile.Text:=OpenDialog1.FileName;
      ICQClient1.SendFileDC(95369854, FileName, 'Testing SendFileDC');
    End;
end;

procedure TForm1.btnLogInClick(Sender: TObject);
begin
  ICQClient1.Login;
  ICQClient1.AddContactVisible(95369854);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
  Label1.Caption:=StatusToStr(ICQClient1.Status);
end;

procedure TForm1.ICQClient1SendFileStart(Sender: TObject; UIN: Cardinal;
  SendFileRec: TSendFileRec);
  Begin
    If SendStream <> nil then
      FreeAndNil(SendStream); // can only proccess one send at a time with this code.
    // Open File For Reading.
    SendStream := TFileStream.Create(SendFileRec.FilePath + SendFileRec.FileName, fmOpenRead);
  End;

procedure TForm1.ICQClient1SendFileData(Sender: TObject; UIN: Cardinal;
  Data: Pointer; var DataLen: Cardinal; var IsLastPacket: Boolean);
begin
    // Read 2048 bytes into Data Buffer.
    DataLen := SendStream.Read(Data, 2048);
    // Are we at the end of the file?
    IsLastPacket := SendStream.Position = SendStream.Size;

end;

Ich dank Euch ganz doll !!
Matthias

[Muetze1]

Moin!

Data wird beim senden angegeben aber nirgendwo alloziiert - daher die Frage: Ist Data bei der letzten Ereignisprocedure schon alloziiert und wenn wann ja, mit wieviel Bytes? Und wenn nicht, wieso wird nicht alloziiert?

Und warum auf einmal das senden von Dateien - letztens war es noch das empfangen von Dateien?

MfG
Muetze1

[goose33]

Hallöchen,

ich hab das so wie das ist aus dem Beispiel übernommen.
Deswegen auch die Englischen kommentare.
Data ist wohl in der ICQWorks assoziiert denke ich mal. Weiss ichaber wirklich nicht genau.
Wie gesagt ich bin nur erst mal am probieren.
Zum Senden... deswegen weil ich das empfangen nicht so einfach ausprobieren kann, da bei mir immer nichts eingeht.
Ich hab jetzt hie nen Kumpel an der STrippe mit dem ich immer mal probieren kann. Wenn ich sende dann kommt bei Ihm wenigstens was an. Wenn er sendet kommt erst mal gar nix an.

Falls das an Data liegen sollte ... wie sol ich das Assoziieren ?

MAtthias