Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

передача данных по сети

Страницы: < 1 2
Тимофей Юрьевич © (2006-06-15 13:57:00)
подскажите как быть и что использовать,задача такая:
клиент открывает форму,вписывает логин/пароль нажимает кнопку,по нажатию кнопки данные должны отсылаться на сервер,там проверяется если такой пользователь и пароль к нему,если да,то открывается основное окно у клиента.
Как реализовать? Спасибо

Тимофей Юрьевич (2006-06-15 15:21:00) [21]
чет не то

Сергей М. (2006-06-15 15:13:00) [22]
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
..
while Socket.SendText('На тебе, клиент, обратно текст !') = -1 do
Application.Processmessages;
..
end;

Тимофей Юрьевич (2006-06-15 15:02:00) [23]
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if socket.ReceiveText = 'gg/tt' then
form1.Caption:='gg';
end;

Сергей М. (2006-06-15 14:55:00) [24]
с обработчике какого события ?

Тимофей Юрьевич (2006-06-15 14:49:00) [25]
хм...сервер принимает текст,а как можно обратно клиенту послать текст?

Тимофей Юрьевич (2006-06-15 14:40:00) [26]
да,поменял у ClientSocket1.clienttype на ctBlocking и теперь все оки!
Спасибки

Сергей М. (2006-06-15 14:30:00) [27]

> clientsocket1.Host:='***';
> clientsocket1.Active:=true;
> clientsocket1.Socket.SendText(edit1.Text+'/'+edit2.Text); //вот она, 17-я строка ! Нет никакой гарантии, что в неблок.режиме в рез-те выполнения предыдущей строчки соединение с сервером действительно установлено.
>
> clientsocket1.Active:=false;

Dmitrij_K (2006-06-15 14:30:00) [28]
какой у сокета режим?

Zeqfreed (2006-06-15 14:28:00) [29]
А я почему-то подумал, что это веб-сервер :) Извиняюсь, предыдущий пост не брать во внимание.

Zeqfreed (2006-06-15 14:27:00) [30]
Могу предположить, что нехватает завершающей последовательности CRLF или ещё какая-либо ошибка в запросе.

Тимофей Юрьевич (2006-06-15 14:26:00) [31]
хех,когда нажимаю "послать"
clientsocket1.Host:='***';
clientsocket1.Active:=true;
clientsocket1.Socket.SendText(edit1.Text+'/'+edit2.Text);
clientsocket1.Active:=false;

в сервере на прием скажем:
if socket.ReceiveText = 'gg/tt' then
form1.Caption:='Super';

каптион меняется только после второго раза нажатия на кнопку "послать"

Сергей М. (2006-06-15 14:18:00) [32]
Бывает и с тридцатьлохматого) ...

Ошибка у тебя , барин, в 17-й строке !)

Тимофей Юрьевич (2006-06-15 14:17:00) [33]
почему sendtext срабатывает только со второго раза?

Сергей М. (2006-06-15 14:04:00) [34]

> сервер не реализован

Тогда начни с сервера.

Тимофей Юрьевич (2006-06-15 14:03:00) [35]
сервер не реализован

Сергей М. (2006-06-15 13:59:00) [36]
Сервер, надо понимать, тобой уже реализован ?

StriderMan (2006-06-15 13:59:00) [37]
TServerSocket, TClientSocket

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »