Главная страница
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.042 c
1-1096286189
Mar_Gel
2004-09-27 15:56
2004.10.10
Подскажите, как поменять иконку в программе во время выполнения?


4-1094820071
pavel_guzhanov
2004-09-10 16:41
2004.10.10
Раскладка клавиатуры


1-1096008578
eagle2002
2004-09-24 10:49
2004.10.10
ActiveX


14-1095664307
Рамиль
2004-09-20 11:11
2004.10.10
Ищу работу в Москве (ERP).


1-1096094700
Leaner
2004-09-25 10:45
2004.10.10
Контрольная сумма файла.