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:

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:

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

[Luke23]

@StefanDP

Danke Stefan es geht!! aber kann das sein das das auch nur geht wenn man schon icq auf dem rechner installiert hat??? weil ich habe das jetzt auf meinem 2 rechner versucht und da geht es nicht!

[StefanDP]

firewall, router, etc. wo vielleicht den port blocken?

ich muss nochmal nachfragen: hast du es hinbekommen mit DEINEM icq (also nicht mit der original version) den on/off/away...-status von den leuten aus der kontaktliste, die du runtergeladen hast, herauszubekommen?? weil das macht mir z.zt große probleme

[Luke23]

ja also ich muss feststellen das da irgentwas nicht passt also wenn ich es in delphi selber teste geht es !! teste ich das ganze auf meinem 2 PC dann passiert nichts weis leider auch nicht warum!
hättest du da vielleicht noch einen tip für mich?

wegen deiner frage kann ich dir leider nicht helfen da ich noch nicht soweit bin!!

[faux]

Andere Frage:
Von wo bekommt man die ICQ-Komponente?

[himitsu]

Bei Torry.

Dieser Link wurde mir freundlicher Weiser von Luke23 zur Verfügung gestellt ^^
http://www.torry.net/quicksearchd.ph...=icq&Title=Yes

[Luke23]

Hallo!!


ja das ist eine gute frage da muss man in Foren lange lesen bis man die findet oder einen Link dazu!!

gucke mal auf die seite da wirst du schnell was finden!!

http://www.torry.net ja und dann rechts die suche nutzen " ICQ " :)

und dann habe ich gehört das woll die "TICQClient v.1.18f" die zurzeit beste Kompo. sein soll!!


Mfg Luke23


PS: einer einen tip bei meinem Prob warum es nicht bei anderem rechner geht nur bei dem wo ich es gebaut habe (mein Program)?

[Luke23]

Hallo Leute !!

keiner einen tip was ich machen kann damit ich sehe warum mein gebautes icq nicht auf anderem rechner laufen tut??? oder wie ich das rausfinden kann????

[XeRo]

wenn du nichts dagegen hast könntest du sie ja mal samt quellcode posten... :tongue:

[Luke23]

Hallo!!

ja also ich muss feststellen das mein Prog halb geht also bei 98 geht es nicht es geht habe ich rausbekommen nur bei xp !! hm.......