| Autor |
Beitrag |
Silence
Beiträge: 58
Win XP Prof
Delphi 7
|
Verfasst: Di 14.12.04 21:24
hallo,
ich versuche mit der idIRC komponente auf einen mirc server zu connecten. aber irgendwie komm ich ncihts drauf
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
| unit ircclient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdIRC, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
IdIRC1: TIdIRC;
procedure IdIRC1Connect(Sender: TObject);
procedure IdIRC1Connected(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdIRC1Connect(Sender: TObject);
begin
label1.Caption := 'Verbinde';
end;
procedure TForm1.IdIRC1Connected(Sender: TObject);
begin
label1.Caption:='verbunden';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
idirc1.Host := '192.168.1.22';
idirc1.Port := 6667;
idirc1.Connect;
end;
end. |
ich hoff mir kann jemand helfen
|
|
retnyg
Beiträge: 2754
SNES, GB, GBA, CPC, A500, 486/66, P4/3.0HT: NintendOS, AmigaOS, DoS
Delphi 5, Delphi 7
|
Verfasst: Do 16.12.04 21:10
schau dir mal das an vielleicht hilfts dir weiter
www.delphipraxis.net...ic24229,0,asc,0.html
|
|
Silence 
Beiträge: 58
Win XP Prof
Delphi 7
|
Verfasst: Mi 22.12.04 10:16
also mein client läuft nu eigentlich schon grob. nur bekomm ich das mit der nickliste net gebacken. ich hab nen frame mit nem nemo reingemacht. und in dem nemo sollen dann die users stehen. kann mir jemand helfen?
|
|
retnyg
Beiträge: 2754
SNES, GB, GBA, CPC, A500, 486/66, P4/3.0HT: NintendOS, AmigaOS, DoS
Delphi 5, Delphi 7
|
Verfasst: Mi 22.12.04 16:22
das sollte ungefähr so gehen
  Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.IdIRC1Joined(Sender: TObject; AChannel: TIdIRCChannel);
begin
memo1.Lines.AddStrings(achannel.names);
end; |
|
|
|
