Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

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 ???


 
Fay ©   (2004-09-08 18:07) [5]

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


 
Anton_K ©   (2004-09-08 18:42) [6]

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
3-1095328995
_alex_
2004-09-16 14:03
2004.10.10
Защита данных в Access


3-1095160139
/glokk
2004-09-14 15:08
2004.10.10
вьювы из хп :(


3-1095240506
Marina
2004-09-15 13:28
2004.10.10
Проблемы по DBF


14-1095707373
Mike Kouzmine
2004-09-20 23:09
2004.10.10
Клара Румянова умерла..


4-1094553464
Ascan
2004-09-07 14:37
2004.10.10
Состояние чужого окна (Normal, Maximized)