Скачать: CL | DM;

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;

---

← →
Eraser ©   (2005-04-11 21:03) [2]

LXD

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c