Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Проблема с ServerSocket и ClienSocket

Автор: darkida 26.1.2010, 13:45

Помогите разобраться.
Перечитал весь форум. Некоторые пишут что разобрались со своей бедой, но не пишут как. В общем не нашел так и ответов на свой вопросы.
Я хочу создать клиент серверную прогу. Но уже в самом начале повсюду одни обломы.
1. Неужто нельзя пользоваться средством ServerSocket и ClientSocket путем интернета если нет постоянного IP адреса.
2. Почему моя программа принимает IP тот который мне выдает ipconfig в строке выполнения задач, а не тот который определяется в интернете.
3. Прога вообще не реагирует на задания клиента:
а) потому что я тестю её на одном компе
или
б) Ошибки в кодинге (хотя это мало вероятно, потому что пробовал элементарки, нифига не пашет)
но при этом как я понял прога распознает сервера потому что если указать другой адрес то начинает ругаться и выводить ошибки 10060, 10061, 10057, 10054.

4. И я так понимаю еще могут проблемы с фаерволом возможно ли в дальнейшем научить программу обходить её или выключать программным путем.

Помогите пожалуйста.

{Я отношусь пока что к числу чайников. И если можно то на понятном языке для чайника писать. )))) }
Заранее благодарен.

Автор: darkida 26.1.2010, 15:43

Мда тока что проверил через нет. Закинул другу и ввел ИП который выдает комп. А не нет. Работает также. То есть как я понял находит сервер, но опять нифига не делает. Почему находит, потому что при введений другого ИП адреса выдает ошибки. Значит как это не печально, но я труба слепой что не могу найти ошибку в кодинге. Но радует то что нет тех самых ошибок которых я писал выше. Все работает. И фаирвол и антивир ничего не делают. Это радует.
Помогите с кодингом где что ни так. Кодинг упростил на нуль чтоб получить хоть какой-то резудьтат от сервера. Ах да некоторые части взял с drkb. Там были примеры на эту тему, но также не пашут.
СЕРВЕР

Код


unit server;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
    procedure ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
    procedure ServerSocketlClientRead(Sender: TObject;
Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:string;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Insert(0,'Server starting');
end;

procedure TForm1.ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Insert(0,'Listening on port '+IntToStr(ServerSocket1.Port));
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Insert(0,'Client connection accepted');
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendStream(TFileStream.Create('c\1.txt', fmOpenRead or fmShareDenyWrite));
end;

procedure TForm1.ServerSocketlClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s: String;
begin
s := Socket.ReceiveText;
if s='r'
 then
label1.Caption:=' privet';
end;

end.

КЛИЕНТ

Код


unit klient;

interface

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

type
  TForm1 = class(TForm)
    Client: TClientSocket;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    IP: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
    procedure ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FStream: TFileStream;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: string;

implementation

{$R *.dfm}

procedure TForm1.ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
FStream := TFileStream.Create('с:\2.txt', fmCreate or fmShareDenyWrite);
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Assigned(FStream) then
begin
   FStream.Free;
   FStream := nil;
end;
end;

procedure TForm1.ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
iLen: Integer;
Bfr: Pointer;
begin
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
   Socket.ReceiveBuf(Bfr^, iLen);
   FStream.Write(Bfr^, iLen);
finally
   FreeMem(Bfr);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
client.close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//Client.active:=true;
Client.Address:=IP.text;
Client.Socket.SendText('r');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FStream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FStream) then
begin
   FStream.Free;
   FStream := nil;
end;                 
end;

end.

Как вы видите тут 3 варианта для проверки:
1.procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); который должен вывести список подключенных клиентов
2.procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); который должен отправить мне файл
3. procedure TForm1.ServerSocketlClientRead(Sender: TObject; Socket: TCustomWinSocket); который должен изменить лабел
Ни один из этих вариантов не откликается.
Помогите пожалуйста.

Автор: kami 26.1.2010, 15:58