ICQ nachrichten??

[Luke23]

Hallo!!

kann mir vieleicht einer von euch sagen wie ich mit einem ICQClienten eine icq nachricht automatisch an eine icq nummer verschicken kann??
ich habe es mit ICQClient1.SendMessage(strtoint(icq nummer),der text);
versucht aber das geht leider nicht hätte da einer einen tip für mich??

Danke

[himitsu]

Ich kenn diese Komponente (ICQClient) nicht, aber ich vermut mal, dass du diese Komponente vor dem Sender mit deiner IRC-Nummer an 'nem IRC-Server anmelden mußt.

hast du das schon gemacht?

und was ist das für 'ne Komponente?

[StefanDP]

bei mir gehts!
du musst halt halt richtig einloggen
icqclient1.login
usw.
(deine eigene uin und pwd nicht vergessen)

[Luke23]

Hallo und danke für eure schnelle antwort!

ja also wenn ich das icq Prog starte sehe ich das sich meine 2 icq nummer online macht aber es kommt dann keine nachricht an !
also einloggen bei icq macht er aber nicht die automatische nachricht!!

[himitsu]

nichts an die eigene UIN (mit der sich dein Proggi anmeldet) senden und dein ICQ-Messanger darf auch nicht mit dieser UIN eingeloggt sein, sonnst ist ja der Zugang belegt.

[StefanDP]

OT:

Zitat von Luke23:

Hallo und danke für eure schnelle antwort!

ja also wenn ich das icq Prog starte sehe ich das sich meine 2 icq nummer online macht aber es kommt dann keine nachricht an !
also einloggen bei icq macht er aber nicht die automatische nachricht!!

hm...
also ich hab auch ein icq projekt (noch nciht beendet)
nur bin ich genau da gehangen! wie hast du das mit dem "sich meine 2 icq nummer online macht" gesehen? weil wenn ich z.B.

Code:

procedure TListe.ICQStatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
begin
  Showmessage('statuschange');
end;

mach passiert garnichts


zu deinem thema:
ich weis zwar nicht genau was du mit "die automatische nachricht" meinst, aber das empfangen funktioniert z.b. so:

Code:

procedure TListe.ICQMessageRecv(Sender: TObject; Msg, UIN: String);
begin
  ShowMessage(Msg + ' von: ' + UIN);
end;

achja: du musst bei den UINs aufpassen, weil in machen funktion bekommst du die als string und in anderen wiederum als integer

[Luke23]

hm... das habe ich jetzt nicht verstanden wie du das meinst oder ich habe es falsch erklärt!!

habe 2 rechner und mein icq an und bei dem 2 rechner starte ich meine gebautes Prog und dann sehe ich ja in meinem icq das mein 2 rechner online kommt aber ich bekomme keine nachricht!!

[StefanDP]

Zitat von Luke23:

hm... das habe ich jetzt nicht verstanden wie du das meinst oder ich habe es falsch erklärt!!

habe 2 rechner und mein icq an und bei dem 2 rechner starte ich meine gebautes Prog und dann sehe ich ja in meinem icq das mein 2 rechner online kommt aber ich bekomme keine nachricht!!

poste mal dein sourcecode

ich meinte: ich bekomm zwar nachrichten, seh aber nicht, ob andere online/offline/away.. sind

[Luke23]

@StefanDP

also ich habe das so gemacht:

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.UIN:=deine 2 icq nummer;
ICQClient1.Password:='dein PW';
ICQClient1.Login;
ICQClient1.SendMessage(strtoint(icq nummer),der text);
ICQClient1.Disconnect;
end;

wenn ich das Prog nun starte und dann auf den schalter klicke sehe ich in meinem 2 rechner das meine 2 icq nummer online kommt!! ich bekomme aber keine Nachricht!

um eine automatische nachricht zu verschicken habe ich es mit:
ICQClient1.SendMessage(strtoint(icq nummer),der text); verstucht aber dann wundert er immer an der ICQ nummer also wo er es hin schicken soll halt!

[StefanDP]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
ICQClient1.ICQServer := 'login.icq.com'; 
ICQClient1.ICQPort := 5190; 
ICQClient1.UIN:=deine 2 icq nummer; 
ICQClient1.Password:='dein PW'; 
ICQClient1.Login; 
ICQClient1.SendMessage(strtoint(icq nummer),der text); 
ICQClient1.Disconnect; 
end;

1. warum disconnectest du gleich wieder?

2. dir ist sicher bekannt, dass das einloggen eine weile dauert! d.h. du kannst nicht unmittelbar nach dem aufbauen der verbindung eine nachricht versenden, sondern musst warten, bis die verbindung steht!
das kannst du z.b. folgendermaßen lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer :=   // einloggen
 .....
ICQClient.Login   
end;

procedure TForm1.ICQLogin(Sender: TObject);  // wird ausgeführt, sobald eine fehlerfreie verbindung hergestellt werden konnte
begin
// event. zu versuchszwecken unkommentieren
// ShowMessage('Jetzt kanns losgehen, ICQ konnte eine Verbindung zum Server herstellen');
  ICQClient1.SendMessage(123456,'test');
  ICQClient1.Disconnect;
end;

(ungetestet)

mfg
stefan