Ошибка при проверке программы

[Mihanches]

Вобщем я писал программу для чтения текстовых файлов на уд компе работающую по принципу клиент сервер. Материал по работе с сокетами брал из статей о том как написать троян на дельфи (плохих целей не было, просто не знал где взять пример использования сокетов). При проверке программы вылезла вот такая ошибка: скрин. Что она значит?

Если важно, то порты были 122 и 123

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

хост на сокетах настроен?
вообще на словах сказать трудно, что вы там понаписали, выложите проект

Если важно, то порты были 122 и 123

у сервера и клиента разные чтоли?

[Mihanches]

нет не разные. это я так одну проблему решил. вот исходник.
CLIENT:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    cs: TClientSocket;
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
cs.Host:=Edit1.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
cs.Active:=true; //Коннектимся
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
cs.Socket.SendText(edit2.text);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s:string;
begin
if copy(s,1,5)='Text:'
then
Memo1.lines.add(s) ;
end;

end.

SERVER:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    cs: TClientSocket;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
serversocket1.port:=123;//Назначаем порт
serversocket1.active:=true//начинаем слушать порт
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s:string; d: Tstrings;
sFileName: string;
begin
s:=socket.ReceiveText;
if copy(s,1,2)='80' then
cs.Host:= s; cs.Active:= True ;
if copy(s,1,2)='10' then
cs.Host:= s; cs.Active:= True ;
if copy(s,1,2)='C:' then
sFileName:= s; Memo1.Lines.LoadFromFile(sFileName); cs.Socket.SendText('Text:'+ memo1.lines.Text);
if copy(s,1,3)='D:' then
sFileName:= s; Memo1.Lines.LoadFromFile(sFileName); cs.Socket.SendText('Text:'+ memo1.lines.Text);
end;

end.

From Stilet:Неужели так сложно было код оформить тегом? Или ты так все документы свои оформляешь тяп-ляп?

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

стоп стоп стоп, а зачем у вас в каждом приложении и клиент и сервер то?
определитесь уже, у вас отдельно клиент сервер или совместно.

[Mihanches]

В клиенте:клиент для откравки имени текстового файла,сервер для приема его содержимого. А в сервере наоборот. А как это совместить?

[Mihanches]

Ктому же вряд ли ошибка из за этого.

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

клиент это тот кто подключается, сервер тот кто принимает подключения.

канал двухсторонний, клиент может принимать данные, так же как и сервер отправлять их.
(например в событии сервера, можно использовать Socket чтоб послать обратно данные(именно тому же), а у клиента это Client.Socket)

вот статейка http://pblog.ru/?p=91

кстати, а адрес какой указан то у клиента?(тест на одном компе)

[Mihanches]

В смысле адрес у клиента? Если вы про адрес клиента в сервере , то перед тем как клиент отсылает имя текст файла, он должен отослать IP (для этого есть соответствующие edit и button). а чтоб не путаться я сделал так что бы: если первые 2 символа были 10 или 80 (так нач мой IP (локал и внеш)) S присваиваеться в Client.Host . Вот такие пироги. Ну дак от чего же ошибка?

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

ну ведь сначало то вы куда то подключаетесь, чтоб отослать данные.
и кстати, если отправка через интернет, то про серый IP помним.

[Mihanches]

У клиента указан IP. Тестил с другом через инет.
Он точно запускал сервер, и у него точно был открыт 123 порт.