[strangerroot]

Пипл привет! простите за нубовский вопрос, я только начинаю!
Сталкнулся с проблемой писал IRC Client используя компанет ActiveIRC, после компиляции не работает программа на другой машине, если там не стоит делфи с компонентом ActiveIRC!
какие библиотеки нужны для работы?
А и еще в мемо1 входящие сообщения задвоены!
Код брал с тырнета, и немного доработал.
спасибо!!!

Код:

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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan, Menus, OleCtrls,   ACTIVEIRCLib_TLB, Buttons; type   TForm1 = class(TForm)     Image1: TImage;     GroupBox1: TGroupBox;     XPManifest1: TXPManifest;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     GroupBox2: TGroupBox;     Edit5: TEdit;     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     ActiveIRC1: TActiveIRC;     Label4: TLabel;     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     BitBtn3: TBitBtn;     Memo1: TMemo;     BitBtn4: TBitBtn;     BitBtn5: TBitBtn;     Memo2: TMemo;     N6: TMenuItem;     N7: TMenuItem;     N8: TMenuItem;     procedure Button5Click(Sender: TObject);     procedure Edit4KeyDown(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure Button1Click(Sender: TObject);     procedure ActiveIRC1Console(ASender: TObject; const text: WideString);     procedure ActiveIRC1IRCReady(Sender: TObject);     procedure ActiveIRC1message(ASender: TObject; const channel, user,       text: WideString);     procedure ActiveIRC1PrivateMessage(ASender: TObject; const user,       text: WideString);     procedure ActiveIRC1UserJoins(ASender: TObject; const channel,       user: WideString);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);     procedure BitBtn2Click(Sender: TObject);     procedure BitBtn3Click(Sender: TObject);     procedure BitBtn4Click(Sender: TObject);     procedure BitBtn5Click(Sender: TObject);     procedure N5Click(Sender: TObject);     procedure N7Click(Sender: TObject);     procedure N8Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button5Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Edit4KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin ActiveIrc1.Join ('#court.gov.ua'); end; procedure TForm1.Button1Click(Sender: TObject); begin ActiveIrc1.server:= edit1.Text; ActiveIrc1.port:= strtoint (edit2.text); ActiveIrc1.nick:= edit3.Text; ActiveIrc1.Connect; end; procedure TForm1.ActiveIRC1Console(ASender: TObject;   const text: WideString); begin memo1.lines.add (text); end; procedure TForm1.ActiveIRC1IRCReady(Sender: TObject); begin Memo1.Lines.Add ('Готов к труду и обороне!'); end; procedure TForm1.ActiveIRC1message(ASender: TObject; const channel, user,   text: WideString); begin memo1.Lines.Add('('+channel+')'+user+'> '+text); end; procedure TForm1.ActiveIRC1PrivateMessage(ASender: TObject; const user,   text: WideString); begin memo1.Lines.Add('Приват от '+user+'--> '+text); end; procedure TForm1.ActiveIRC1UserJoins(ASender: TObject; const channel,   user: WideString); begin memo2.Lines.Add('Пришел Админ '+user+' на канал: '+channel+'!'); end; procedure TForm1.Button2Click(Sender: TObject); begin ActiveIrc1.Join(edit5.Text); end; procedure TForm1.Button3Click(Sender: TObject); begin //ActiveIrc1.Leave; end; procedure TForm1.Button4Click(Sender: TObject); begin ActiveIrc1.Say(edit5.Text,edit4.Text); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin ActiveIrc1.server:= edit1.Text; ActiveIrc1.port:= strtoint (edit2.text); ActiveIrc1.nick:= edit3.Text; ActiveIrc1.Connect; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin ActiveIrc1.Join(edit5.Text); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin form1.Close; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin ActiveIrc1.Say(edit5.Text,edit4.Text); Edit4.Clear; end; procedure TForm1.BitBtn5Click(Sender: TObject); begin ActiveIrc1.Disconnect; end; procedure TForm1.N5Click(Sender: TObject); begin form1.Close; end; procedure TForm1.N7Click(Sender: TObject); begin ActiveIrc1.server:= edit1.Text; ActiveIrc1.port:= strtoint (edit2.text); ActiveIrc1.nick:= edit3.Text; ActiveIrc1.Connect; end; procedure TForm1.N8Click(Sender: TObject); begin ActiveIrc1.Disconnect; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.

[Aristarh Dark]

ActiveX надо установить нужный на эту машину.

[strangerroot]

ActiveX а какой именно йаж еще не шарю в делфи((( а хотел-бы

[Aristarh Dark]

Ну ирковский твой, я не в курсе какой он там.
Смотри что устанавливается при инсталяции компонентов.

[NumLock]

ActiveIRC.ocx

[strangerroot]

у меня ActiveIRC.ocx но а как его без делфи поставить? вернее как чтобы он с программай ставился? простите за тупости но всеже)

[Страдалецъ]

Обычно ocx размещаются в папке System32, но можно положить и в папку где находится ваш исполняемый файл. По идее библиотечка должна подхватится приложением.

[strangerroot]

Всем спасибо! разобрался! Решение проблеммы: скопировать в system32 файл ActiveIRC.ocx и набрать команду regsvr32.exe ActiveIRC.ocx
--
у меня еще мемо1 входящие сообщения задвоены! но там дело в коде, буду рыть)