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

← →
LXD (2005-04-11 18:44) [0]

Здравствуйте!
У меня вопрос: Есть 2 компонента в дельфях 7 - IPMCastServer, IPMCastClient (IndyClients и IndyServers).
Ну так вот, мне надо с сервера послать клиенту массив строк...
При приёме данных, надо выдернуть из массива текст и распечатать.
Может кто-нибудь знает как это сделать?

Заранее спасибо!

← →
Diesel (2005-04-11 19:09) [1]

Архитектура проста. К сожалению я не смогу точно ответить на вопрос по передачи строк по сети, но делается это следующим образом.
У тебя есть полноценный сервер с функциями печати того что ты ему туда вложешь как массив строк или как файл, проще всего это сделать через стандартный диалог печати без его вызова, а с испольщованием метода 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;

LXD

Используй свойство Text класса TStringList.

Indy передача данных по сети... Найти похожие ветки