[alanatolich]

Переделал, но все равно выдает ошибку.

[DCC Error] mypotok.pas(16): E2065 Unsatisfied forward or external declaration: 'TMyThread.ClientSocketRead'

на строку

Код:

    procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);

Приведите пожалуйста пример как правильно.

Код:

unit mypotok;

interface

uses
  ScktComp,
  Classes,SysUtils, ADODB,ActiveX;

type
  TMyThread = class(TThread)

    // данные из сокета
    procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);

  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;


var MYClientSocket:TClientSocket;

implementation


procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin

end;

procedure TMyThread.Execute;
var termial:TStringList;
  I: Integer;
    myList:TList;
const NumberClientSocket=1;

begin
    // создаем список
    MYList := TList.Create;
    // получаем список терминалов на загрузки
    termial:=terminals('loading');
    //
    // создаем сокеты
    for I :=0 to NumberClientSocket do
    begin
        MYClientSocket:=TClientSocket.Create(nil);
        MYClientSocket.OnRead:=ClientSocketRead;
        MYClientSocket.Name:='MS'+inttostr(I);
        MYList.Add(MYClientSocket);
    end;
    // основной цикл потока
    while True do
    begin
        TClientSocket(myList[0]).Address:=terminalip('127.0.0.1');
        TClientSocket(myList[0]).port:=55555;
        TClientSocket(myList[0]).Open;
    end;
    // освобождаем сокеты
    for I :=0 to NumberClientSocket do
    begin
        TClientSocket(myList[i]).Close;
        TClientSocket(myList[i]).Free;
    end;
    // освобождаем список
    termial.Free;
end;

end.

Расскажите что представляют из себя асинхронный (неблокируемый)/синхронный (блокируемый) сокет.

Расскажите в чем разница использования асинхронный (неблокируемый)/синхронный (блокируемый) сокет.

Почему не правильно использовать асинхронный (неблокируемый) сокет в потоке?

За информацию буду очень благодарен