[Scooby_Do]

Всем привет. Решил написать чат на протокле ICQ. Скачал компонент TICQ v1.34.1 Ситуация такая: при нажати кнопки Button1, UIN получает из Edit1, а пароль из Edit2. Так вот не дает скомпилировать. В этой строчке ошибку показывет:

PHP код:

ICQClient1.UIN:=StrToInt(Edit1.Text); 


а вот полностью функция:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ICQClient1.UIN:=StrToInt(Edit1.Text);
  ICQClient1.Password:=Edit2.Text;
  icqclient1.Login();
end; 


в чем ошибка??

[ChinYan]

Вижу фазы луны смещение, да с юпитером резонанс!!!!
Что за ошибка-то?

[ALexandr555]

вот подключение

Код:

ICQClient1.ConvertToPlaintext := True;
ICQClient1.UIN := StrToInt(TUIN1.Text);
ICQClient1.Password := TPASS1.Text;
ICQClient1.ICQServer:=ServerUIN1.Text;
ICQClient1.ICQPort:=StrToInt(PortUIN1.Text);
ICQClient1.Login(S_ALLOWDAUTH);

Вообще делай по примеру что там

[Scooby_Do]

Вот ошибки:

[Error] Unit1.pas(34): Undeclared identifier: 'ICQClient1'
[Error] Unit1.pas(34): Missing operator or semicolon
[Error] Unit1.pas(35): Missing operator or semicolon
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(39): Undeclared identifier: 'ICQClient1MessageRecv1'
[Error] Unit1.pas(39): ';' expected but '(' found
[Error] Unit1.pas(41): Undeclared identifier: 'Memo1'
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(41): Undeclared identifier: 'UIN'
[Error] Unit1.pas(41): '(' expected but ')' found
[Error] Unit1.pas(42): Missing operator or semicolon
[Error] Unit1.pas(44): Undeclared identifier: 'OnLine'
[Warning] Unit1.pas(44): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(45): Undeclared identifier: 'Send'
[Error] Unit1.pas(45): 'END' expected but ')' found
[Error] Unit1.pas(47): Missing operator or semicolon
[Warning] Unit1.pas(47): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(48): Undeclared identifier: 'icqclient1'
[Error] Unit1.pas(48): Missing operator or semicolon
[Error] Unit1.pas(48): Incompatible types: 'Cardinal' and 'String'
[Error] Unit1.pas(51): Missing operator or semicolon
[Error] Unit1.pas(51): Incompatible types: 'Cardinal' and 'String'
[Error] Unit1.pas(52): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Error] Unit1.pas(54): ';' expected but 'ELSE' found
[Error] Unit1.pas(56): '.' expected but ';' found
[Error] Unit1.pas(58): Undeclared identifier: 'nick'
[Error] Unit1.pas(60): Undeclared identifier: 'Reged'
[Warning] Unit1.pas(60): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(61): Undeclared identifier: 'nick'
[Error] Unit1.pas(61): Undeclared identifier: 'ListBox2'
[Error] Unit1.pas(61): ')' expected but ',' found
[Error] Unit1.pas(64): ';' expected but 'FUNCTION' found
[Error] Unit1.pas(64): Undeclared identifier: 'OnLine'
[Error] Unit1.pas(67): Undeclared identifier: 'OnLine'
[Error] Unit1.pas(68): Undeclared identifier: 'ListBox1'
[Error] Unit1.pas(69): Incompatible types
[Error] Unit1.pas(69): Missing operator or semicolon
[Error] Unit1.pas(79): Undeclared identifier: 'Str2'
[Error] Unit1.pas(79): Missing operator or semicolon
[Error] Unit1.pas(79): Undeclared identifier: 'UIN'
[Error] Unit1.pas(80): Assignment to FOR-Loop variable 'i'
[Error] Unit1.pas(80): 'DO' expected but identifier 'Items' found
[Error] Unit1.pas(82): Undeclared identifier: 'i2'
[Error] Unit1.pas(90): '(' expected but ':=' found
[Error] Unit1.pas(90): Not enough actual parameters
[Error] Unit1.pas(91): '(' expected but ',' found
[Error] Unit1.pas(91): Incompatible types
[Error] Unit1.pas(92): Undeclared identifier: 'icqclient1'
[Error] Unit1.pas(92): Missing operator or semicolon
[Error] Unit1.pas(92): Incompatible types

Вообще делай по примеру что там

Я делал тачно также как на примере. Скопировать - вставить...

[Scooby_Do]

Может я компонент не праильно утсановил, а то он везде TICQClient1. ошибку выдает(((

[Scooby_Do]

И ещё: при установки компонента TICQ был такой варнинг:

PHP код:

[Warning] Unit 'uMD5Hash' implicitly imported into package 'TICQClient' 


Может из-за него все это???

[M.A.D.M.A.N.]

[Error] Unit1.pas(34): Undeclared identifier: 'ICQClient1'
В общем компилятор говорит, что ты используешь коммерческую версию компонента.

[Scooby_Do]

и что делать??? если не сложно может ссылочку на нормальный TICQ напишите?..

[M.A.D.M.A.N.]

Ты и в правду не понимаешь в чем ошибка?

[Scooby_Do]

да))) я в delphi 2-ой месяц)) это мой первый нормальный проект)

[M.A.D.M.A.N.]

ну дельфи же написала: "необъявленный идентификатор 'ICQClient1'".

[Scooby_Do]

кажется понял...) это надо в

PHP код:

type
  TForm1 = class(TForm)
    ICQDb1: TICQDb;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject); 


дописать созданые функции??

[M.A.D.M.A.N.]

он у тебя назван ICQDb1

[Scooby_Do]

вместо TICQClient писать ICQDb1??

а в uses написано:

PHP код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ICQDb, ICQClient; 


[M.A.D.M.A.N.]

Берешь книгу Пушкина, на ней написано Евгений Онегин.