Приложение а. Листинг программы

Документы:

CREATE TABLE CTS_DOC (

ID INTEGER NOT NULL,

WHOID INTEGER NOT NULL,

DT DATE,

NM VARCHAR(150) NOT NULL,

COMM VARCHAR(200),

URLS VARCHAR(150) NOT NULL,

ACTL SMALLINT DEFAULT 1 NOT NULL,

ID_GROUP INTEGER DEFAULT 0

);

Выбор файла:

function send_http_file(fname:string):integer; //загрузка файла на сервер методом GET

var

stream: TIdMultiPartFormDataStream;

begin

Result:=-1;

stream:= TIdMultiPartFormDataStream.create;

try

stream.AddFile('file_name',fname,'multipart/form-data');

form8.IdHTTP1.HandleRedirects:=true;

if form8.IdHTTP1.Post('http://'+server_pt+'/doc/upload.php', stream)=':)' then Result:=0

else Result:=1;

finally

stream.Free;

end;

end;

На стороне сервера, PHP скрипт upload.php':

<?php

$uploaddir = 'C:/Program Files/Apache Software Foundation/Apache2.2/htdocs/doc/123/';

if (move_uploaded_file($_FILES['file_name']['tmp_name'], $uploaddir.$_FILES['file_name']['name']))

{

print ":)";

}

else

{

print ":(";

};

?>

Оперативные телефоны. Зона ответственности – загрузка:

procedure TForm1.ComboBox6Change(Sender: TObject); // если значение фильтра изменилось

begin

ListView2.Clear;

Form1.SQL1.Close;

Form1.SQL1.SQL.Clear;

Form1.SQL1.SQL.Add('SELECT T.KTOETO, T.NUMJD, T.NUMIP, T.NUMMOB, T.VREM, T.OBEKT, f.nms');

Form1.SQL1.SQL.Add('FROM TEL_NUM T, func_tel f');

Form1.SQL1.SQL.Add('WHERE ');

if ComboBox6.ItemIndex>-1 then Form1.SQL1.SQL.Add('(T.IDDOR = '+get_dor(ComboBox6)+') and');

Form1.SQL1.SQL.Add(' (t.id_who=f.id) and (t.VIP=0)');

save_log('ComboBox6Change',Form1.SQL1.SQL);

StartS; //начало работы с БД – сделано для ДВС, так как у них это всё работает очень медленно

Form1.SQL1.Open;

while not SQL1.Eof do

begin

with ListView2.Items.Add do

begin

Caption:=Form1.SQL1.FieldByName('KTOETO').AsString;

SubItems.Add(Form1.SQL1.FieldByName('OBEKT').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NMS').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMJD').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMIP').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMMOB').AsString);

SubItems.Add(Form1.SQL1.FieldByName('VREM').AsString);

end;

SQL1.Next;

end;

Form1.SQL1.Close;

EndS; //конец работы с БД – сделано для ДВС, так как у них это всё работает очень медленно

ComboBox8.ItemIndex:=-1;

end;

Административный объект:

procedure TForm1.ComboBox8Change(Sender: TObject);

begin

ListView2.Clear;

Form1.SQL1.Close;

Form1.SQL1.SQL.Clear;

Form1.SQL1.SQL.Add('SELECT T.KTOETO, T.NUMJD, T.NUMIP, T.NUMMOB, T.VREM, T.OBEKT, f.nms');

Form1.SQL1.SQL.Add('FROM TEL_NUM T, func_tel f');

Form1.SQL1.SQL.Add('WHERE');

if ComboBox6.ItemIndex<>-1 then Form1.SQL1.SQL.Add(' (T.IDDOR = '+get_dor(ComboBox6)+') and ');

Form1.SQL1.SQL.Add('(T.ID_WHO='+inttostr(integer(form1.ComboBox8.Items.Objects[form1.ComboBox8.ItemIndex]))+')');

Form1.SQL1.SQL.Add(' and (t.id_who=f.id) and (t.VIP=0)');

save_log('ComboBox8Change',Form1.SQL1.SQL);

StartS;

Form1.SQL1.Open;

while not SQL1.Eof do

begin

with ListView2.Items.Add do

begin

Caption:=Form1.SQL1.FieldByName('KTOETO').AsString;

SubItems.Add(Form1.SQL1.FieldByName('OBEKT').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NMS').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMJD').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMIP').AsString);

SubItems.Add(Form1.SQL1.FieldByName('NUMMOB').AsString);

SubItems.Add(Form1.SQL1.FieldByName('VREM').AsString);

end;

SQL1.Next;

end;

Form1.SQL1.Close;

EndS;

end;