Indy WebSocket правильно описать процедуру OnDataEvent

@DenXTC · Регистрация: 17.02.2022

Author24 — интернет-сервис помощи студентам

Добрый день уважаемые форумчане!

Прошу помощи, не хватает знаний и умений.

https://github.com/arvanus/Ind... Client.pas

нашел готового клиента websocket, пытаюсь прикрутить к своей программе, но компилятор выдает ошибку:

[dcc32 Error] Unit1.pas(319): E2003 Undeclared identifier: 'lSWC1DataEvent'

Delphi

1 2	lSWC := TIdSimpleWebSocketClient.Create(self); lSWC.onDataEvent := self.lSWC1DataEvent; //TSWSCDataEvent

понимаю, что необходимо описать процедуру обработчик, но как это сделать правильно не знаю.
пытаюсь сделать, что то вот такое, но тоже не работает.

Delphi

1
2
3

procedure lSWC1DataEvent(Sender: TObject; const Text: string);
begin
end;

@krapotkin · 18.02.2022, 11:29

TSWSCDataEvent = procedure(Sender: TObject; const Text: string) of object;
здесь ключевой момент - OF OBJECT!
self.lSWC1DataEvent - предполагает что у текущего объекта Self есть МЕТОД lSWC1DataEvent
а procedure lSWC1DataEvent - это вовсе не метод этого объекта/класса
поэтому собсно и не подходит
заведите в класс и взлетит

@DenXTC · 18.02.2022, 15:09 **[ТС]**

если честно я в классах совсем не силен, попробовал напрямую

Delphi

1 2	TForm1 = class(TForm) lSWC1:TSWSCDataEvent;

[dcc32 Error] Unit1.pas(14): E2217 Published field 'lSWC1' not a class or interface type
так не получилось,
попробовал

Delphi

  TForm1 = class(TForm)
    procedure lSWC1DataEvent(Sender: TObject; const Text: string);
 
 
procedure TForm1.lSWC1DataEvent(Sender: TObject; const Text: string);
begin
// не удалять
   memo2.lines.append(Text);
end;

Все отлично заработало, я Вам благодарен, большое спасибо!

@DenXTC · 08.04.2022, 11:02 **[ТС]**

Добрый день уважаемые форумчане!

Хочу поднять тему. Все работает,но ровно через час соединение закрывается, где то в интернете ранее видел, что нужно отправлять служебное сообщение ping, чтобы канал не валился, может кто подскажет, где можно почитать по этому вопросу?

Большое спасибо!

@krapotkin 5779 / 4522 / 1430 Регистрация: 14.04.2014 Сообщений: 20,143 Записей в блоге: 20
	18.02.2022, 11:29	2
	TSWSCDataEvent = procedure(Sender: TObject; const Text: string) of object; здесь ключевой момент - OF OBJECT! self.lSWC1DataEvent - предполагает что у текущего объекта Self есть МЕТОД lSWC1DataEvent а procedure lSWC1DataEvent - это вовсе не метод этого объекта/класса поэтому собсно и не подходит заведите в класс и взлетит 1

@DenXTC 0 / 0 / 0 Регистрация: 17.02.2022 Сообщений: 11
	08.04.2022, 11:02 [ТС]	4
	Добрый день уважаемые форумчане! Хочу поднять тему. Все работает,но ровно через час соединение закрывается, где то в интернете ранее видел, что нужно отправлять служебное сообщение ping, чтобы канал не валился, может кто подскажет, где можно почитать по этому вопросу? Большое спасибо! 0

Опции темы