Как создать службу на Delphi для сервера моей программы? (Delphi) << На главную или назад  

33 ответов в теме “Как создать службу на Delphi для сервера моей программы? (Delphi)”

1. 4
   Sergey Ibragimov ответил:
   26 декабря 2009 в 14:00

   2Andrey: хорошо попробую, если подойдёт то значит это то что мне нужно было…

2. 3
   Андрей Ковальчук ответил:
   26 декабря 2009 в 13:00

   К сожалению все что нашел это процедуру Клиент-серверного взаимодействия посредством использования сокетов. Эта процедура отправит данные на сервер и запишет в базу данных.
   Используется: ServerSocket

   ———————————————————————————-

   procedure TForml. SrvrSockClientRead(Sender: TObject," Socket: TCustomWinSocket);

   type Custinfo = record

   name: string;

   address: string;

   bank: string;

   end;

   function ExtractXMLcontent(s, constr: string): string;

   begin

   Result:=Copy(s,(Pos('<'+constr+'>',s)+Length(constr}+2),

   (Pos('</'+constr+'>',s)-(Pos(I<'+constr+I>',s) +Length(constr)+2)));

   end;

   var content: string;

   currcust: custinfo; numcust:integer;

   begin

   content:=Socket.ReceiveText;

   currcust.name:=ExtractXMLcontent(content,'CUSTNAME');

   currcust.address:=ExtractXMLcontent(content,'CUSTADDRESS');

   currcust.bank:=ExtractXMLcontent(content,'CUSTBANK');

   Query.close;

   Query.sql.Clear;

   Query.sql.Add('SELECT ID FROM klients');

   query.open;

   query.Last;

   numcust:=strtoint(query.FieldValues['ID'] ) +1;

   Query.close;

   Query.SQL.Clear;

   Query.sql.Add('INSERT INTO klients(ID, KlientsName, KlientsAddress, KlientsBank) Values ('+inttostr(numcust) + ',"'+currcust. name+'", "'+currcust.address+'", "r+currcust.bank+'"}');

   Query.ExecSQL;

   end;

3. 2
   Sergey Ibragimov ответил:
   26 декабря 2009 в 6:00

   2Andrey: Spasibo…

4. 1
   Андрей Ковальчук ответил:
   25 декабря 2009 в 23:02

   Как то я уже делал нечто похожее! Покопаюсь на своей машине может найду исходник тогда размещу.