Удаленный мониторинг

[xoodoo]

Если исходные тексты и клиента и сервера имеются в наличии и в полном комплекте, то что собственно "удаленно мониторить"-то собрался ?

[fobass]

Сообщение от xoodoo

Если исходные тексты и клиента и сервера имеются в наличии и в полном комплекте, то что собственно "удаленно мониторить"-то собрался ?

Данная программа следит за состоянием агрегатов и записывает показатели. Клиент имеет графическую схему этих агрегатов и числовые значение. Так вот я хочу вот эту графическую схему у себя на рабочем столе

Клиент

procedure TForm1.Timer (Sender: TObject);
var
s:string;
begin
   s:='';
   s:=s + '01' + ':' +Label1.Caption + ';' + '02' + ':' +Label2.Caption + ';'+   ……………..
   ClientSocket1.Socket.SendText(s);  
   end;
end;

Сервер

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
s:=Socket.ReceiveText;
n:=length(s);
for i:=0 to n do
m[i]:=s[i];
 
for i:=0 to n do begin
if (s[i]=';') then
   begin
Label1.Caption:=st;
   end;
if (s[i]=';') then
   begin
Label2.Caption:=st;
   end;
………

[xoodoo]

хочу вот эту графическую схему у себя на рабочем столе

Ну так запусти клиентскую часть программы на своем компе и подключись к удаленной серверной части.
Правда работать это как положено не будет, потому что программу писал электрик.

[Slym]

и клиент и сервер судя по отрывкам кода - говно... переписать!

давай код сюда или на мыло...