Keine Antwort von TICQClientMessageRecv

[Chegga]

Hi,

ich bin gerade dabei einen ICQ Bot zu erweitern.
Ich schreibe über ICQClient1.SendMessage(StrToInt(Edit3.Text), Memo2.Text); eine Nachricht,
die ohne Probleme ankommt.
Um die Antwort des Chat-Partner einzulesen,
verwende ich das hier:

Delphi-Quellcode:

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
  Memo1.Lines.Add('Du erhälst diese Nachricht von ' + UIN + ': ' + Msg);
end;

(Ich benutze die TICQClient Komponente)
Was mache ich falsch?

MfG Marc

[marabu]

Hallo Marc,

es gibt unzählige Implementierungen eines ICQClient im Netz, die alle eines gemeinsam haben: den Namen TICQClient. Welche verwendest denn du?

Grüße vom marabu

[Chegga]

Hi,

@marabu:

Ich habe die Komponente von Torry.net.
So heißt sie: TICQClient v.1.18f
Bedauerlicherweise lese ich gerade folgendes:

• Delphi component which implements a part of ICQ v.8 protocol (which is used in ICQ2002a):
• 17 Sep 2002

Daraus schließe ich,
dass die Komponente leider etwas veraltet ist.
Kann es daran liegen?

MfG Marc

[MrKnogge]

Ja, das könnte sein. Ich habe schon vermehrt von Problemen mit ICQ-Komponenten seit dem release von ICQ5 gehört, aber leider noch keine Komponente für ICQ5 gesehen.

gruss

[Chegga]

Hi,

Zitat von MrKnogge:

..., aber leider noch keine Komponente für ICQ5 gesehen.

Fleißig, wie ich bin, habe ich mich gleich mal auf die Suche gemacht.
Auf cobans.net gibt es imho eine neue(re) Version des obengenannten ICQClienten!
Zum direkt Download geht es hier:
Download ICQClient 1.2

MfG Marc

P.S.:
Ich werde die Komponente heute oder morgen ausprobieren
und gebe dann bescheid, ob sie mit ICQ5 funktioniert.

[Chegga]

Hi,

Ich habe folgendes geschrieben:

P.S.:
Ich werde die Komponente heute oder morgen ausprobieren
und gebe dann bescheid, ob sie mit ICQ5 funktioniert.

Erst einmal: --> Es klappt!

Aber es hat eine kleine Einschränkung:
Der Chat-Partner muss im Online-Status sein,
damit eine Antwort erhalten werden kann.

MfG Marc

[DataCool]

Hi Leute,

ich wollte das ganze auch mal Testen,
aber ich bekomm unter Delphi 6 Enterprise die Komponente nicht mal installiert.
Erst meckert er mir in der ICQSock.pas(Line 1643) das an :

for i := gPortRange.First to gPortRange.Last do

gPortRange "Undefinierter Bezeichner"

Habe das ganze dann durch :

for i := 80 to High(Word) do

ersetzt und jetzt erhalte ich diverse Fehlermeldungen in der ICQDirect2 !
Er kennt folgende Klassen/Events nicht :

TOnSendFileStart

TOnSendFileData

TOnSendFileFinish

TThreadTimer

TSendFileRec

@Chegga, wenn Du das ganze kompilieren kannst, kannst Du mir ja mal sagen, wo bei Dir diese Klassen definiert sind.

Danke, Data

[DataCool]

Hi,

wenn Doofheit, weh tuen würde, müßte ich jetzt nen Tag lang schreien

Hatte noch ne alte Version von dem Client in einem anderen Suchpfad liegen, und der hatte wohl Vorrang

Frage erledigt

Gruß Data