|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.01.2011, 18:23 | #1 |
Регистрация: 18.01.2011
Сообщений: 7
|
Клиент
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. почему не выводит сообщение о том что я подключился и в мемо ничего не происходит? хост и порт ввожу верные |
18.01.2011, 18:27 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
1) телнет на ваш хост:порт заходит?
2) что SendText() возвращает?
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
18.01.2011, 18:38 | #3 |
Регистрация: 18.01.2011
Сообщений: 7
|
телнет вроде цепляется, ошипки не выдает
SendText(AuthData) рандомная авторизация для сервера |
18.01.2011, 18:41 | #4 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
Да хоть взлом Пентагона. SendText() - это функция. Функции возвращают какие-то значения. Иногда их полезно анализировать.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
18.01.2011, 18:44 | #5 |
Регистрация: 18.01.2011
Сообщений: 7
|
значит процедура авториизации не нужна?
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; |
19.01.2011, 00:43 | #6 |
Регистрация: 18.01.2011
Сообщений: 7
|
А что не так с SendText() ?
|
19.01.2011, 00:53 | #7 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
Может быть всё так. А может и нет. Существует такое поверье, что анализ данных, возвращаемых функциями, позволяет более точно установить причину отказа и избежать пустой траты времени на гадания по кофейной гуще.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
19.01.2011, 01:06 | #8 |
Регистрация: 18.01.2011
Сообщений: 7
|
А как проверить так или не так?
|
19.01.2011, 11:40 | #9 |
Заблокирован
Регистрация: 27.05.2010
Сообщений: 1,099
|
> как проверить так или не так?
Справка для Пушкина писана ? Открываешь ее на тему метода SendText и штудируешь "как проверить" - там ВСЁ написано. |
20.01.2011, 22:22 | #10 |
Регистрация: 18.01.2011
Сообщений: 7
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как отправить видео захват(с веб-Кам.) Клиент->Сервер->Клиент | RODNOC | Мультимедиа в Delphi | 17 | 03.10.2010 22:31 |
сервер+клиент+клиент на телефон | Razyiller | Работа с сетью в Delphi | 3 | 01.04.2010 20:10 |
Возможно-ли Клиент-серверное приложение типа Клиент(Pascal) а сервер(CGI)? | Demol | Работа с сетью в Delphi | 1 | 21.04.2009 16:18 |
Клиент-сервер-клиент | Кронос | Работа с сетью в Delphi | 3 | 24.08.2007 07:57 |