| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WinApi. Вставить компонент [D7, WinXP]

Dextor ©   (2004-09-07 21:18:00) 

Добрый вечер!!! Каким образом на WinApi:
 
вставить компонент TServerSocket, а потом вызвать процедуру Server1ClientRead ???

пробовал:

uses ScktComp;

var
 Server1: TServerSocket;

begin
end.


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

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

---

Anton_K   (2004-09-08 18:42:00) [1]

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

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

---

Fay   (2004-09-08 18:07:00) [2]

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

---

Dextor   (2004-09-08 17:37:00) [3]

Причем тут API?

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

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

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

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

---

atruhin   (2004-09-08 13:25:00) [4]

// Вот упрощеный код отсылки строки с помощью 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;

---

Anton_K   (2004-09-07 21:50:00) [5]

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

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

---

Fay   (2004-09-07 21:23:00) [6]

Причем тут API?

---

Наверх