![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Indy передача данных по сети... [D7, WinXP]
LXD © (2005-04-11 18:44:00)Здравствуйте!
У меня вопрос: Есть 2 компонента в дельфях 7 - IPMCastServer, IPMCastClient (IndyClients и IndyServers).
Ну так вот, мне надо с сервера послать клиенту массив строк...
При приёме данных, надо выдернуть из массива текст и распечатать.
Может кто-нибудь знает как это сделать?
Заранее спасибо!
Eraser (2005-04-11 21:03:00) [1]LXD
Используй свойство Text класса TStringList.
Diesel (2005-04-11 19:09:00) [2]Архитектура проста. К сожалению я не смогу точно ответить на вопрос по передачи строк по сети, но делается это следующим образом.
У тебя есть полноценный сервер с функциями печати того что ты ему туда вложешь как массив строк или как файл, проще всего это сделать через стандартный диалог печати без его вызова, а с испольщованием метода Print.
Т.е. пишутся строки в клиентском приложении, после чего активизируется метод передачи их на сервер *тут я замечу что стоило бы использовать TTCpServer и TTcpClient (IndyServers & IndyClients) и через их родные методы организовате пересылку данных по порту, потом на серверной части приложения (то что лежит на машине с принтером) при возниккновении события OnRecieve читаются строки вот пример:
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
Var S:String;
StringList : TStringList;
begin
StringList:=TStringList.Create;
Repeat
StringList.Add(ClientSocket.Receiveln);
Until StringList[StringList.Count-1]'';
StringList.Delete(StringList.Count-1);
RichEdit1.Lines:=StringList;
StringList.Free;
RichEdit1.Print('My Document');
end;