WinApi. Вставить компонент

← →
Dextor (2004-09-07 21:18) [0]

Добрый вечер!!! Каким образом на WinApi:

вставить компонент TServerSocket, а потом вызвать процедуру Server1ClientRead ???

пробовал:
uses ScktComp; var Server1: TServerSocket; begin end.
А дальше не катит!!!

Мой 13-ти летний интелект никак не врубится, как ЭТО сделать!
Прошу вас, подскажите, если не жалко !!!

← →
Fay © (2004-09-07 21:23) [1]

Причем тут API?

← →
Anton_K © (2004-09-07 21:50) [2]

А дальше не катит!!!

А что не катит-то? Не компилируется?

← →
atruhin © (2004-09-08 13:25) [3]

// Вот упрощеный код отсылки строки с помощью TClientSocket.
// То что нужно тебе по аналогии.
type
TMyClientSocket = class(TClientSocket)
public
Msg : string;
OK : boolean;
constructor Create(_IP, _Msg : string);
procedure cltCommandConnect(Sender: TObject; Socket: TCustomWinSocket);
end;

{ TMyClientSocket }
constructor TMyClientSocket.Create(_IP, _Msg: string);
begin
OnConnect := cltCommandConnect;
Address:=_IP;
Port:=17001;
inherited Create(nil);
Msg:=_Msg;
OK := false;
ClientType:=ctBlocking;
Open;
end;

procedure TMyClientSocket.cltCommandConnect(Sender: TObject; Socket: TCustomWinSocket);
var
MySocket : TWinSocketStream;
begin
Ok :=false;
MySocket := TWinSocketStream.Create(Socket,WaitAns);
try
MySocket.Write(Msg[1],Length(Msg));
OK := true;
finally
MySocket.Free;
end;
end;

function TForm1.SendClient(_IP : string; _Msg: string): boolean;
begin
with TMyClientSocket.Create(_IP,_Msg) do begin
Result:=OK;
free;
end;
end;

← →
Dextor (2004-09-08 17:37) [4]

Причем тут API?

Типа надо программу - сервер написчать на чистом API

А что не катит-то? Не компилируется?

В голову не лезет, как процедурку вызвать

> atruhin
Спасибо, большое! А как без этого function TForm1 ???

Просто "без этого".

Типа надо программу - сервер написчать на чистом API

Если будешь использовать TServerSocket, то это уже не будет ЧИСТЫМ API.

WinApi. Вставить компонент Найти похожие ветки