Anhänge über ICQ - TICQClient Version 1.18f

[Nicolai1234]

Wie kann man über die ICQ-Komponente TICQClient Version 1.18f Anhänge an eine bestimmte UIN versenden?
Danke

[cYaONE]

Delphi-Quellcode:

var
  SendStream: TFileStream;

procedure TForm1.Button2Click(Sender: TObject); 
begin 

ICQClient1.SendFileDC(12345678, 'C:\abc.bmp', 'Testing SendFileDC'); 
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; 

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.ICQClient1SendFileFinish(Sender: TObject; UIN: Cardinal; 
SendFileRec: TSendFileRec; Aborted: Boolean); 
begin 
FreeAndNil(SendStream); 
end;

So ungefähr sollte das aussehen - es funktioniert nur leider nicht (zumindest bei mir), weil es keine direkte Verbindung herstellen kann (was aber eigentlich funktionieren sollte)

Falls ihr eine Lösung habt, würde ich mich echt freuen!

PS: Inzwischen gibt's schon Version 1.20f (in der das oben genannte Problem aber immer noch nicht behoben ist)

[Nicolai1234]

Und wie muss ich das dann aufrufen?

[cYaONE]

Das sollte sich eigentlich von selbst erklären, oder?

Du ziehst eine TICQClient-Komponente auf Form1 und weist ihr die Ereignisse zu (SendFileData, SendFileStart, SendFileFinish)
Danach noch einen Button oder sonst irgendwas zum testen, um dann ICQClient1.SendFileDC() aufzurufen!

[Nicolai1234]

Bei mir gibt es die proceduren sendfiledata etc. in der Komponente garnicht!

[cYaONE]

Das sind ja auch Ereignisse der Komponente! (OnSendFileStart, OnSendFileFinish, OnSendFileData)

[Nicolai1234]

Meine ich doch! Gibts aber trotzdem nicht!

[MrKnogge]

Dann Poste doch mal ein link, wo es die Komponennte zum download gibt, damit hier auch alle von der gleichen reden....

[Nicolai1234]

Sie kommt von torry.net, weiß es aber nicht genau!
Ich habe sie hier auf meinem Server mal online gestellt!

[cYaONE]

Stimmt, bei der 1.18er es des noch net dabei - lad dir mal die aktuelle runter!

[Nicolai1234]

Wo?
Bei torry finde ich die nicht!

[cYaONE]

Da wo du sie her hast! cobans.net!

[Nicolai1234]

THX
Ich wusste ja nicht mehr so genau, wo ich sie her hatte!
Wie kann ich sie installieren? Weil die Unit genauso heißt, wie die von 1.18f, macht er Probleme!

[cYaONE]

Probiers mal aus, obs funktioniert und sag mir dann bescheid!

[cYaONE]

am besten die alte deinstallieren und dann ein neues paket mit den neuen dateien erstellen ... (das kann man doch aber wohl wissen, oder? :roll:)

[Nicolai1234]

Das habe ich auch gedacht, aber ich weiß nicht, wo ich die alte deinstalliere!