TCP IP Терминал

[Aliens_wolfs]

Попробуйте на компоненте TClientSocket сделать что я описал в посте выше #9 с ним проще работать

[Fox78]

Сообщение от Aliens_wolfs

Если не получиться то думаю стоит обратить внимание на компонент TClientSocket должен быть во вкладке internet с ним проще работать
Если у вас в Delphi не установлен этот компонент то с ним можно работать так
Подключаем модуль в Uses ScktComp

Всё получилось!!! Спасибо огромное! Данные приходят.
Еще хочу проверить без запроса, должно тоже работать.
Как проверю, отпишусь =)

[Aliens_wolfs]

ОК.
Компоненты IdTCPClient и IdTCPServer всегда странные и мучительные в работе.

[Fox78]

Без запроса всё работает, только что проверил =)

[zvygin1964]

Сообщение от Fox78

...всё работает...

Исходники выложите для свободного доступа.

[Fox78]

Сообщение от zvygin1964

Исходники выложите для свободного доступа.

Если вы читали тему, то могли увидеть исходники несколькими сообщениями выше.

[Aliens_wolfs]

Исходный рабочий код в посте #9

[Fox78]

Еще возник вопрос. Если реализовать два сокета, то как это сделать?

Я объявляю новый сокет:

public
ClientSocket1: TClientSocket;
ClientSocket2: TClientSocket;
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
   procedure ClientSocketError(Sender: TObject;Socket: TCustomWinSocket;
   ErrorEvent: TErrorEvent; var ErrorCode: Integer);
   procedure ClientSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
   procedure ClientSocketConnecting(Sender: TObject; Socket: TCustomWinSocket);
   procedure ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
   procedure ClientSocketWrite(Sender: TObject; Socket: TCustomWinSocket);
end;

В обработчике кнопки прописываю все параметры:

procedure TForm1.ConnectDev_btnClick(Sender: TObject);
begin
ClientSocket2.Address:= '192.168.1.95';
ClientSocket2.Port:=10200;
ClientSocket2.ClientType:= ctNonBlocking;
ClientSocket2.Open;
end;

При попытке соединения выдает ошибку:
'Access violation at adress 005E671C in module 'Project.exe'. Read of address 00000048'.

Что я делаю не так?

[Pavia]

Компоненты такие как ClientSocket2: TClientSocket; нельзя просто прописывать руками. Его надо обязательно положить на форму мышкой.

Если хочется руками, то тут надо прочитать про динамическое создание компонентов. Оно отличается от динамического создания объектов(или классов).

[Fox78]

У меня нет такой компоненты, только Indy

Не установлен компонент, я с ним работаю как описано в посте #9. Первый сокет работает отлично, пытаюсь прописать второй, выдает ошибки.

...
Нашел решение =)
Устанавливаю компоненту ClientSocket следующим образом:

Выбираю меню Component -> Install Packages -> Add -> В папке "C:\Program Files\Embarcadero\Studio\18.0\bin" выбираю dclsockets240.bpl -> Открыть -> Ok.
После этого во вкладке Internet появляется нужный мне компонент =)
Далее работаю уже с ним =)

P.S. Но все равно меня мучает вопрос как можно его прописать руками так же как и первый сокет.