AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Chat with IdIrc

Offene Frage von "dangerduck"
Ein Thema von dangerduck · begonnen am 14. Dez 2008 · letzter Beitrag vom 23. Dez 2008
Antwort Antwort
Seite 1 von 4  1 23     Letzte » 
dangerduck

Registriert seit: 14. Dez 2008
39 Beiträge
 
#1

Chat with IdIrc

  Alt 14. Dez 2008, 17:22
Ich deutch nicht verstehe and schprahe good
So please write posts in english
I have an program in delphi who has to connect to an irc channel and chat with him my problem is how to recive message from channel and how to recognize recived messages. I know to send messages and connect on irc but reciving is a problem...
I try to download indy 10 but it give me an error
please if you have it send me
my msn is : dangerduck.1337@gmail.com

and code :

Delphi-Quellcode:
unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdCmdTCPClient, IdIRC, IdContext, ExtCtrls, shellapi, GIFImg;

type
  TForm5 = class(TForm)
    IdIRC1: TIdIRC;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure IdIRC1Join(ASender: TIdContext; ANickname, AHost,
      AChannel: string);
    procedure IdIRC1DCCChat(ASender: TIdContext; ANickname, AHost: string;
      APort: Integer);
    procedure IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
      AHost, ANicknameTo, AMessage: string);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  x:integer;
implementation

{$R *.dfm}




procedure TForm5.FormCreate(Sender: TObject);
begin
IdIRC1 := TIdIRC.Create(nil);
  IdIRC1.Host := 'irc.darkmyst.org';
  IdIRC1.Port := 6667;
  IdIRC1.Nickname := 'DDbot';
   idIRC1.AltNickname := 'DDbot2';
    idIRC1.AltNickname := 'DDbot3';
     idIRC1.AltNickname := 'DDbot4';
       idIRC1.AltNickname := 'DDbot5';
         idIRC1.AltNickname := 'DDbot6';
           idIRC1.AltNickname := 'DDbot7';
             idIRC1.AltNickname := 'DDbot8';
               idIRC1.AltNickname := 'DDbot9';
                 idIRC1.AltNickname := 'DDbot10';
  IdIRC1.Username := 'DDbot';
  IdIRC1.RealName := 'DDbot';
  While not IdIRC1.Connected=true Do
  Begin
    IdIRC1.Connect;
    If not IdIRC1.Connected=true Then
    sleep(500);
  End;
x:=0;
repeat
inc(x);
IdIRC1.Join('#DDbot','');
sleep(5000);
until x=3;
end;

procedure TForm5.IdIRC1Join(ASender: TIdContext; ANickname, AHost,
  AChannel: string);
begin
IdIRC1.Say('#DDbot', 'Zdravo');
end;





end.
Bitte helfen
und einen schönen Gruß aus Slowenien
  Mit Zitat antworten Zitat
monXii

Registriert seit: 30. Nov 2008
Ort: Verl
11 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Chat with IdIrc

  Alt 14. Dez 2008, 17:43
1. You only set 1 Alternate Nickname he cant handle so much.. the last nick will be used if ddbot is not free..
2. theres a procedure called like onMessage or onPrivatemessage.. do you use indy9 or 10?
i have read in some posts that indy 9 is more stable..
  Mit Zitat antworten Zitat
dangerduck

Registriert seit: 14. Dez 2008
39 Beiträge
 
#3

Re: Chat with IdIrc

  Alt 14. Dez 2008, 17:48
ok i wil set one altnick i didnt know that
i use RAD studio 2007 so i think is delphi 9 in
yes i try with onPrivateMessage but i dont know how to write code for it
Delphi-Quellcode:
procedure TForm5.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  AHost, ANicknameTo, AMessage: string);
begin
Memo1.lines.Add();
end;
what i must insert betwen () ??
  Mit Zitat antworten Zitat
beelze000

Registriert seit: 28. Sep 2008
2 Beiträge
 
#4

Re: Chat with IdIrc

  Alt 14. Dez 2008, 18:21
if you only need the message is it memo1.lines.add(AMessage);
greetz beelze
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Chat with IdIrc

  Alt 14. Dez 2008, 18:44
What's the Error Message?
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
monXii

Registriert seit: 30. Nov 2008
Ort: Verl
11 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Chat with IdIrc

  Alt 14. Dez 2008, 18:50
theres no error cause he didnt knew how to do it
  Mit Zitat antworten Zitat
dangerduck

Registriert seit: 14. Dez 2008
39 Beiträge
 
#7

Re: Chat with IdIrc

  Alt 14. Dez 2008, 19:08
no the Memo1.lines.Add(AMessage); wont help code :
Delphi-Quellcode:
unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdCmdTCPClient, IdIRC, IdContext, ExtCtrls, shellapi, GIFImg;

type
  TForm5 = class(TForm)
    IdIRC1: TIdIRC;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure IdIRC1Join(ASender: TIdContext; ANickname, AHost,
      AChannel: string);
    procedure IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
      AHost, ANicknameTo, AMessage: string);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  x:integer;
implementation

{$R *.dfm}




procedure TForm5.FormCreate(Sender: TObject);
begin
IdIRC1 := TIdIRC.Create(nil);
  IdIRC1.Host := 'irc.darkmyst.org';
  IdIRC1.Port := 6667;
  IdIRC1.Nickname := 'DDbot';
   idIRC1.AltNickname := 'DDbot2';
  IdIRC1.Username := 'DDbot';
  IdIRC1.RealName := 'DDbot';
  While not IdIRC1.Connected=true Do
  Begin
    IdIRC1.Connect;
    If not IdIRC1.Connected=true Then
    sleep(500);
  End;
x:=0;
repeat
inc(x);
IdIRC1.Join('#DDbot','');
sleep(5000);
until x=3;
end;


procedure TForm5.IdIRC1Join(ASender: TIdContext; ANickname, AHost,
  AChannel: string);
begin
IdIRC1.Say('#DDbot', 'Zdravo');
end;




procedure TForm5.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  AHost, ANicknameTo, AMessage: string);
begin
Memo1.lines.Add(AMessage);
end;

end.
  Mit Zitat antworten Zitat
dangerduck

Registriert seit: 14. Dez 2008
39 Beiträge
 
#8

Re: Chat with IdIrc

  Alt 14. Dez 2008, 21:02
video :
http://rapidshare.de/files/41137040/Film.wmv.html
  Mit Zitat antworten Zitat
Benutzerbild von Valle
Valle

Registriert seit: 26. Dez 2005
Ort: Karlsruhe
1.223 Beiträge
 
#9

Re: Chat with IdIrc

  Alt 14. Dez 2008, 21:32
This video is 14MB big! I need around 20 minutes to download it. I think nobody wants to download such a big video. Please just tell us, why it doesn't work. Do you get an error? Which error? This is the fastest way to get help.
Valentin Voigt
BOFH excuse #423: „It's not RFC-822 compliant.“
Mein total langweiliger Blog
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#10

Re: Chat with IdIrc

  Alt 14. Dez 2008, 21:44
Zitat von Valle:
This video is 14MB big! I need around 20 minutes to download it.
Bad luck guy, bad luck. I don't need a minute to download it...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz