TClientSocket. Приложение без формы / Delphi

[unreal2x]

Очень сильно извиняюсь, что дублирую тему, но ответа в "Помощь студента" как заметил получить очень тяжко.

Есть вопрос-проблемка.

в без-форменном приложении TClientSocket не хочет компилироваться. Ругается на порт адрес оупен.
Консоль конешно можно, но интересен и этот вариант без формы.

Использую код...

Код:

program client;

uses
  Windows,
  SysUtils,
  ScktComp,

var
CS: TClientSocket;

begin
while 1=1  do
  Begin
sleep(10000);
CS:=TClientSocket.Create(nil);
CS.Port:=666;
CS.Address:=IP;
CS.Open;
end;

end.

Помогите плиз - кто знает.

[Stilet]

Как как ругается??

[sxcine]

while 1=1  do
  Begin
sleep(10000);
CS:=TClientSocket.Create(nil);

в БЕСКОНЕЧНОМ цикле идёт создание сокета. это первое.

CS.Address:=IP;

что это за переменная и где ее значение?
в приведенном коде лично не увидел.

[unreal2x]

Сори за мою тупость) Но как сделать так, чтоб приложение не отключалось сразу?
а тот бесконечный цикл))) я к нему еще showmessage('1'); Добавил) чтоб приложение не закрывалось сразу)

program client;

uses
  Windows,
  SysUtils,
  ScktComp;

var
CS: TClientSocket;

begin
CS:=TClientSocket.Create(nil);
CS.Port:=666;
CS.Address:='127.0.0.1';
CS.Open;
end;

end.

и код

procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
Msg:string;
begin
Msg:=Socket.ReceiveText;
showmessage(Msg);
end;

к сожалению ничего не принимает... Справку по соксам - с удовольствием бы почитал.

[Valio]

А почемуб просто не создать приложение с формой и просто её, форму, отключить?

[Aliens_wolfs]

к сожалению ничего не принимает... Справку по соксам - с удовольствием бы почитал.

И не будет ее нужно объявить)

begin
CS:=TClientSocket.Create(nil);
CS.OnRead := ClientSocket1Read;// но будет ошибка потому как нужно эту процедуру назначать в созданном классе
CS.Port:=666;
CS.Address:='127.0.0.1';
CS.Open;
end;

Про без форменные приложения почитай книгу Михаила Фленова "Delphi глазами хакера", там кроме этого много чего интересного.

В общем в ресурсе проекта сделай так

program client;

uses
  Windows,
  Programm in 'Programm.pas';

var
AMessage: msg;

// Это нужно чтобы приложение не отключалось работало с событиями
begin
while (GetMessage(AMessage, 0, 0, 0)) do
    begin
      TranslateMessage(AMessage);
      DispatchMessage(AMessage);
    end;
    Halt(AMessage.wParam);
end.

И отдельно создай модуль, в котором будет происходить вся работа твоей программы

unit Programm;

interface
uses
Windows, SysUtils, ScktComp, Dialogs;

type
  TProgramm = class
  private
  FClientSocket: TClientSocket;
  public
  constructor Create; virtual;
  destructor Destroy; override;
  procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
  end;

var
Prog: TProgramm;

implementation

constructor TProgramm.Create;
begin
  inherited;
FClientSocket:=TClientSocket.Create(nil);
FClientSocket.OnRead := ClientSocketRead;
FClientSocket.Port:=666;
FClientSocket.Address:='127.0.0.1';
FClientSocket.Open;
end;

destructor TProgramm.Destroy;
begin
 FClientSocket.free;
  inherited;
end;

procedure TProgramm.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
Msg:string;
begin
Msg:=Socket.ReceiveText;
showmessage(Msg);
end;

// При загрузке программы класс будет создаваться  
initialization
  Prog := TProgramm.Create;

//При закрытии программы уничтожаться
finalization
   Prog.Destroy;
end.

[Пепел Феникса]

CS.OnRead := ClientSocket1Read;

не скомпилится.
ибо of object там стоит.

[Aliens_wolfs]

Спасибо! Я уже исправил. Неуспел дописать просто)