| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TTcpClient в оддельный паток
alex-drob © (2008-06-03 14:59:00)Подскажите пожалуйста, как вынести ttcpclient в отдельный поток?чтобы я из главной формы мог отправлять и получать через него данные.
делаю так:
unit Unit2;
interface
uses
Classes, sockets, unit1;
type
Client = class(TThread)
private
ftcp:ttcpclient;
procedure getdata;
procedure senddata(ms:TMemoryStream);
protected
procedure Execute; override;
public
constructor create(h,p:pchar);
published
procedure getdata;
procedure senddata(ms:TMemoryStream);
end;
implementation
constructor Client.create(h,p:pchar);
begin
inherited Create(True);
ftcp:=ttcpclient.Create(nil);
ftcp.RemoteHost:=h;
ftcp.RemotePort:=p;
end;
procedure client.getdata;
begin
ftcp.ReceiveBuf(buf,len);
end;
procedure client.senddata(ms:TMemoryStream);
begin
ftcp.SendStream(ms);
end;
procedure Client.Execute;
begin
end;
end.
не получаеться, кк можно такое организовать?
Сергей М. (2008-06-05 12:59:00) [1]
> есле я уже много кода написал, с tcpclient, не сложно будет
> переделать?
Мне не сложно. Тебе - не знаю)
alex-drob (2008-06-05 12:38:00) [2]ну я просто люблю так разбираться. если просто прочитать целую книгу то можно что-то не запомнить с чем потом придёться разбираться, а если сталкнуться с проблемой, и искать решение, задавать вопросы, ну и получать ответы, то это уже запониться. ну конешно прочитав, будет легче разобраться, но так получилось что не прочитал.
ANB (2008-06-05 11:58:00) [3]
> а есле я уже много кода написал, с tcpclient
Глупый вопрос - нафига писать много кода, если еще не освоил технологию работы с неизвестной тебе библиотекой ?
alex-drob (2008-06-03 21:44:00) [4]ясно, буду искать документацию на эту тему, а есле я уже много кода написал, с tcpclient, не сложно будет переделать?
Сергей М. (2008-06-03 21:28:00) [5]
> чем он лудше?
он не "лудше" и не "худше" - он совмещает в себе всю функциональность TTCPClient/Server + предусматривает асинхронную нотификуцию о событиях гнездового транспорта (т.е. то чего не предусмотрено и, как правило, не достает в TTCPClient/Server в неблокирующем режиме)
alex-drob (2008-06-03 21:09:00) [6]поставил, только пока не понял чем он лудше?
alex-drob (2008-06-03 20:54:00) [7]Спасибо за помощь, сейчас поставлю!
Сергей М. (2008-06-03 20:49:00) [8]
> всмысле есть файлик dclsockets90.bpl
Чудесно.
Инсталлируй его (меню Install Package) и в палитре появятся компоненты TServerSocket и TClientSocket
alex-drob (2008-06-03 20:35:00) [9]всмысле есть файлик dclsockets90.bpl
Сергей М. (2008-06-03 20:11:00) [10]
> как TClienSocket подключить? всмысле какой модуль?
А что тогда подразумевалось под "есть" (см. [25]) ?
alex-drob (2008-06-03 20:02:00) [11]дело в том что я первый раз вобще с сетью работаю. и что увидел то и использую. а как TClienSocket подключить? всмысле какой модуль?
Сергей М. (2008-06-03 19:56:00) [12]
> в каком смысле?
В прямом.
> есть
Ну и нафих тебе TTCPClient, если иемется полноценныйTClientSocket ?
alex-drob (2008-06-03 19:50:00) [13]в каком смысле? есть
Сергей М. (2008-06-03 19:46:00) [14]А что, в Д2005 не наблюдается пакета dclsocketsXX.bpl (TSocketServer/Client) ?
alex-drob (2008-06-03 19:41:00) [15]winXP Delphi 2005
Сергей М. (2008-06-03 19:36:00) [16]
> я бы почитал, но в моеё делфи нет справки
Найди !
Сергей М. (2008-06-03 19:35:00) [17]
> alex-drob
Ты бы хоть платформу обозначил, на которой твое творчество тобой планируется эксплуатировать ..
alex-drob (2008-06-03 19:35:00) [18]я бы почитал, но в моеё делфи нет справки!
Сергей М. (2008-06-03 19:31:00) [19]
> этот режим не совсем так работает
Не совсем как?
> мне он не подойдёт наверное, программа так неконектиться
И не будет, пока не будешь читать документацию.
alex-drob (2008-06-03 19:30:00) [20]
> Ну и чуток кода написать.
а где можно прочитать про это, или пример небольшой, а то у меня не работает
| |
Страницы: 