/ / continue;. Lines.Add («невдалі встановити зв'язок з» + fadd [i1]);;; (sicom, sizeof (sicom), 0); sc:=0; ;
Відбувається встановлення зв'язку і заповнення полів компаненти TCPClient. У полі «IP-адреса» записується адреса з масиву адрес fadd []. У полі «порт» записується статичний порт 8090.
Далі за допомогою функції writeln (string) в потік записується строковая команда.
Для переходу в режим візуального керування запускається компонент TTim
er1.TForm1.Timer1Timer (Sender: TObject);: TMemoryStream;: tjpegimage;, y: integer;: string; tcpclient do:=TJPEGImage.Create;:=TMemoryStream.Create;
/ / writeln (# 13 + # 10); («GSS»);:=uppercase (readln); s12=«TRUE» then:=readinteger;:=readinteger;
/ / ReadStream (a, readinteger, false); (a, - 1, true);;. Seek (0, soFromBeginning);. LoadFromStream (A);. Canvas.Draw (x, y, j);; (i);. Free;. Free;
/ / finally.Panel1.Caption:=«Візуальне управління:» + ListBox1.Items [0];. Close;. enabled:=false;;
end;
end;
Тут відбувається ініціалізації змінної типу TJPEGImage для візуалізації віддаленого робочого столу. Відкривається потік і в змінну записуються дані потоку.
Сервер на дії реагує допомогою процедури TCPServerExecute.
procedure TForm1.TCPServerExecute (AThread: TIdPeerThread);, s, SRequest: string;: cardinal;: boolean;: TMemoryStatus;: Double;: integer; AThread.Connection doConnected do:=UpperCase (Readln );
/ / Відправляємо знімок екранаSRequest=«GSS» then ;/ / / / cansend then
writeln («TRUE»); (xmin); (ymin);
begin; (b, true);;;; not cansend then writeln («FALSE»);;:=0;:=0;:=maxint;:=maxint;. free; :=TMemoryStream.Create;
end;;
Далі представлений приклад реакції сервера на команду клієнта:
if SRequest=«MODO» then (strtoint (readln), strtoint (readln));; SRequest=«KEDO» then (strtoint (readln));; SRequest=«KEUP» then
begin (strtoint (readln));
3 Спеціальна частина
3.1 Моделювання предметної області
Предметна область - частина реального світу, що розглядається в межах даного контексту. Під контекстом тут може розумітися, наприклад, область дослідження або область, яка є об'єктом деякої діяльності.
Моделювання предметної області є одним з найбільш важливих етапів робіт при проектуванні програмних систем масштабу підприємства.
Отже, основними завданнями при моделюванні предметної області є описи:
- бізнес-процесів підприємства;
- дійових осіб бізнес-процесів та їх функцій, що підлягають автоматизації в прив'язці до структури автоматизируемого підприємства;
- бізнес сутностей;
- сценаріїв виконання бізнес-функцій, що підлягають автоматизації;
- станів бізнес-сутностей;
- бізнес-пр...
