Клиент

[tehman]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ClientSocket: TClientSocket;
Login: TEdit;
Pass: TEdit;
Connect: TButton;
Auth: TButton;
Memo1: TMemo;
procedure ConnectClick(Sender: TObject);
procedure AuthClick(Sender: TObject);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ConnectClick(Sender: TObject);
begin

with ClientSocket do
begin
Host:='***';
Port:=****;
Open;


end;
end;

procedure TForm1.AuthClick(Sender: TObject);
var AuthData, UID: string;
begin
Randomize;
UID:=IntToStr(Random(99999999));
AuthData:=#00 + #01 + #00 + '0' + Login.Text + '*' + Pass.Text + '*9*0*' + UID + '**Delphi*';
ClientSocket.Socket.SendText(AuthDa ta);

end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage ('Подключено!');
end;


procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText( ));
end;

end.

почему не выводит сообщение о том что я подключился и в мемо ничего не происходит? хост и порт ввожу верные

[veniside]

1) телнет на ваш хост:порт заходит?
2) что SendText() возвращает?

[tehman]

телнет вроде цепляется, ошипки не выдает
SendText(AuthData)
рандомная авторизация для сервера

[veniside]

Да хоть взлом Пентагона. SendText() - это функция. Функции возвращают какие-то значения. Иногда их полезно анализировать.

[tehman]

значит процедура авториизации не нужна?
procedure TForm1.AuthClick(Sender: TObject);
var AuthData, UID: string;
begin
Randomize;
UID:=IntToStr(Random(99999999));
AuthData:=#00 + #01 + #00 + '0' + Login.Text + '*' + Pass.Text + '*9*0*' + UID + '**Delphi*';
ClientSocket.Socket.SendText(AuthDa ta);
end;

[tehman]

А что не так с SendText() ?

[veniside]

Может быть всё так. А может и нет. Существует такое поверье, что анализ данных, возвращаемых функциями, позволяет более точно установить причину отказа и избежать пустой траты времени на гадания по кофейной гуще.

[tehman]

А как проверить так или не так?

[mss]

> как проверить так или не так?

Справка для Пушкина писана ?
Открываешь ее на тему метода SendText и штудируешь "как проверить" - там ВСЁ написано.

[tehman]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ClientSocket1: TClientSocket;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   with ClientSocket1 do
begin
Host:='****';
Port:=****;
Open; 
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
   var AuthData, UID: string;
begin
Randomize;
UID:=IntToStr(Random(99999999));
AuthData:=#00 + #01 + #00 + '-' + Edit1.Text + '*' + Edit2.Text + '*9*0*' + UID + '**nokia1100*';// ето строка текста для авторизации на сервере и все, числа с решетками заданы четко
ClientSocket1.Socket.SendText(AuthData);
if 

end;


procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    ShowMessage('Подключились!');
end;

end.

вопрос в том чтобы при удачной авторизации выскочило сообщение что мы авторизовались для этого, как я понимаю, нужно принять пакет и проверить побайтно то что прислал сервер в ответ с той или оной сигнатурой. к сожелению не знаю как проверять побайтно буфер памяти.