VPF::Немогу присвоить событие :( - Форум программистов

Ak47black

Дата 2.5.2006, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Доброе время суток.
Сталкнулься со следушей проблемой

Код


procedure incedit1;
var
  con:TClientSocket;
begin
  con:=TClientSocket.Create(Main_form);
  con.Port:=554;
  con.Address:='212.24.245.133';
  con.Active:=True;
  con.OnConnect:=showmessage('Connected !!!');//тут ошибка
end;

Код ошибки

Код


[Error] main.pas(144): Incompatible types: 'TSocketNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

Подскажите пожалуйста решение этой проблемы smile

Snowy

Дата 2.5.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


procedure OnConnect(Sender: TObject) of object;
begin
  showmessage('Connected !!!');
end;

procedure incedit1;    
var    
  con:TClientSocket;    
begin    
  con:=TClientSocket.Create(Main_form);    
  con.Port:=554;    
  con.Address:='212.24.245.133';    
  con.Active:=True;    
  con.OnConnect := OnConnect;
end;

Ak47black

Дата 2.5.2006, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

На

Код


procedure OnConnect(Sender: TObject) of object;

Выдает ошибку

Код


[Error] main.pas(136): ';' expected but 'OF' found

Это сообщение отредактировал(а) Ak47black - 2.5.2006, 18:40

Snowy

Дата 2.5.2006, 19:13 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


  TMain_form = class(TForm)
  private
    class procedure OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
  end;

var Main_form: TMain_form;

implementation

class procedure TMain_form.OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Connected !!!');
end;

procedure incedit1;
var
  con:TClientSocket;
begin
  con:=TClientSocket.Create(Main_form);
  con.Port:=554;
  con.Address:='212.24.245.133';
  con.Active:=True;
  con.OnConnect := Main_form.OnSocketConnect;
end;

Ak47black

Дата 2.5.2006, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Ок. Вроде все работает спасиба за ответ.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »