Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Алгоритм обмена данными ? [D3, Win95/98, WinXP]

half_litre © (2004-05-31 13:16:00)
Дано :
(СС)Сокет сервер (stThreadBlocking-??) получает от клиента (СК)
строку (набор параметров), запускает приложение (ПР)
(для каждого клиента свое).
Надо :
Организовать передачу инфы от ПР к СК.
Можно ли использовать TServerClientThread из (СС) в
программе (ПР) или только
(ПР)-(WM_COPYDATA)->(CC)->(CК)

PS.Многопоточность в (СС) не предлагать . Работаю с BDE, а
оно (@-ка) при многопоточности работает не стабильно.

Digitman (2004-05-31 17:41:00) [1]

> half_litre (31.05.04 16:54) [17]
> с трэдями засада - BDE плохо переваривает multisession

полная ерунда

> (ПР) у меня не консольное приложение

да хоть сервис ! никакой разницы

> могу ли я передать
> из (СС) в (ПР) ссылку на обьект TServerClientThread
> а в уже в (ПР) работать с ним как нормальным обьектом.

ссылку на объект передать можешь, но вызывать методы/св-ва этого объекта ты можешь только в ВАП того процесса, который создал этот объект

p.s.

imho, у тебя такая страшная каша в голове из объектов, процессов, приложений, трэдов и прочих клиентов-серверов, что впору прекратить заниматься этим и засесть за теорию

Polevi (2004-05-31 17:17:00) [2]
и причем тут консольное

Polevi (2004-05-31 17:17:00) [3]
нет

half_litre (2004-05-31 16:54:00) [4]
>Digitman
с трэдями засада - BDE плохо переваривает multisession

>Polevi
(ПР) у меня не консольное приложение, могу ли я передать
из (СС) в (ПР) ссылку на обьект TServerClientThread
а в уже в (ПР) работать с ним как нормальным обьектом.

Polevi (2004-05-31 16:33:00) [5]
намудрил я с DuplicateHandle , все проще гораздо

procedure TForm1.FormCreate(Sender: TObject);
begin
ss.Active:=true;
end;

procedure TForm1.ssAccept(Sender: TObject;
Socket: TCustomWinSocket);
var
sa:TSecurityAttributes;
si:TStartupInfo;
pi:TProcessInformation;
cmdLine:string;
begin
//запускаем процесс и передаем ему хендл сокета
sa.nLength:=sizeof(TSecurityAttributes);
sa.bInheritHandle:=true;
sa.lpSecurityDescriptor:=nil;
GetStartupInfo(si);
si.cb:=sizeof(TStartupInfo);
cmdLine:=Format('D:\Prj\DupHandles\DupHandle.exe %d',[Socket.SocketHandle]);
if not CreateProcess(nil,PChar(cmdLine),nil,nil,true,0,nil,nil,si,pi) then
RaiseLastWin32Error;
end;

procedure TForm1.ssClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
Socket.Close;
end;

код ПР

program duphandle;

{$APPTYPE CONSOLE}

uses
SysUtils,Windows,WinSock;

var
toHandle:Cardinal;
WSAData: TWSAData;
begin
{ TODO -oUser -cConsole Main : Insert code here }
try
toHandle:=StrToInt(ParamStr(1)); //хендл сокета
WSAStartup($0101, WSAData);
send(toHandle,PChar('Polevi the best')^,15,0);
WSACleanup;
except on E:Exception do
writeln(E.Message);
end;

readln;
end.

а вообще я согласен с Digitman, такой способ мягко говоря не самый лучший

Digitman (2004-05-31 16:16:00) [6]

> half_litre (31.05.04 14:43) [13]
> >эти самые ПР - они "чужие"
> Мои

В таком случае ничто не мешает тебе разработать и реализовать ПИО между ПР и СС и использовать любой из удобных интерпроцессных коммуникационных механизмов (вин-сообщения, иненованые прогр.каналы, MMF и пр. и пр.)

> можно ли обмануть природу и
> детать это миную (CC) ?

зачем ?! СС на то и существует, чтобы заниматься централизованной диспетчеризацией/арбитражем инф.обмена удаленных клиентов со стартуемыми алгоритмами на стороне сервера !

в этом случае (когда ПР - твои) вообще непонятно, зачем оформлять некий алгоритм в виде отдельного приложения, а не в виде алгоритма в составе СС-приложения

СК послал запрос : расчитать то-то и то-то по таким-то параметрам

СС принял запрос, проанализировал его корректность и запустил отд.трэд в своем ВАП, передав ему параметры

доп.трэд выполнил задачу и известил СС о результатах ее выполнения

СС, получив от трэда результаты, передает их СК-клиенту

все !!

зачем извращаться со всякими ПР ?

Polevi (2004-05-31 16:10:00) [7]
procedure TForm1.FormCreate(Sender: TObject);
begin
ss.Active:=true;
end;

procedure TForm1.ssAccept(Sender: TObject;
Socket: TCustomWinSocket);
var
sa:TSecurityAttributes;
si:TStartupInfo;
pi:TProcessInformation;
cmdLine:string;
begin
//запускаем процесс и передаем ему хендл процесса и сокета
sa.nLength:=sizeof(TSecurityAttributes);
sa.bInheritHandle:=true;
sa.lpSecurityDescriptor:=nil;
GetStartupInfo(si);
si.cb:=sizeof(TStartupInfo);
cmdLine:=Format('D:\Prj\DupHandles\DupHandle.exe %d %d',[GetCurrentProcess,Socket.SocketHandle]);
if not CreateProcess(nil,PChar(cmdLine),nil,nil,true,0,nil,nil,si,pi) then
RaiseLastWin32Error;
end;

procedure TForm1.ssClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
Socket.Close;
end;

код ПР

program duphandle;

{$APPTYPE CONSOLE}

uses
SysUtils,Windows,WinSock;

var
fromProcess, fromHandle, toHandle:Cardinal;
WSAData: TWSAData;
begin
{ TODO -oUser -cConsole Main : Insert code here }
try
fromProcess:=StrToInt(ParamStr(1)); //хендл процесса акцептора
fromHandle:=StrToInt(ParamStr(2)); //хендл сокета
//проецируем хендл сокета на текущий процесс
if not DuplicateHandle(fromProcess,fromHandle,GetCurrentProcess,@toHandle,0,false,DUPLICATE_SAME_ACCESS) then
RaiseLastOSError;

WSAStartup($0101, WSAData);
send(toHandle,PChar('Polevi the best')^,15,0);
WSACleanup;
except on E:Exception do
writeln(E.Message);
end;

readln;
end.

half_litre (2004-05-31 14:43:00) [8]
>эти самые ПР - они "чужие"
Мои

После запуска (ПР) на (СК) надо передать сообщения о
ходе выполнения задачи. Так можно ли обмануть природу и
детать это миную (CC) ?

Digitman (2004-05-31 14:10:00) [9]

> atruhin © (31.05.04 14:07) [10]

это ты про Borland Socket Server что ли ?

Digitman (2004-05-31 14:07:00) [10]

> half_litre (31.05.04 13:16)

мне вообще непонятно : эти самые ПР - они "чужие" (готовые. без исх.текстов) или твоей разработки (с исх.текстами, алгоритм подконтролен и м.б. изменен в любой момент) ?

atruhin (2004-05-31 14:07:00) [11]
>Digitman
Невсегда. Например в D6 для трехзвенки через сокеты входит утилита демон которая только запускает нужные программы по запросу а весь интерфейс предоставляет им.

Digitman (2004-05-31 13:58:00) [12]

> А кто ж будет висет демоном и принимать заявки от (СС)
> и запускать (ПР)

так вот задача этого самого "демона" (СС) - по той или иной технологии вести обмен данными с ПР (передавать запросы от СК к ПР и возвращать результаты запросов от ПР к СК)

а доп.трэды в составе СС-процесса здесь совершенно ни при чем : есть они или нет их - это не имеет отношения к протоколу инф.обмена между СС и СК, ровно так же как не имеют они отношения к протоколу инф.обмена между СС и ПР

трэды предназначены для параллельного выполнения длительных вычислений

atruhin (2004-05-31 13:55:00) [13]
>можно попробовать передать хендл сокета в ПР
и что N прграмм ПР будет работать через сокет сервера CC, а вопросы синхронизации. Это сколько гемора будет ?

atruhin (2004-05-31 13:52:00) [14]
>>а накой шут тогда СС нужен, если ПР у тебя "умеет" напрямую >>"общаться" с СК ?
Видать диспетчер ПР, если ПР объемные и некоторые редко запускаются может и имеет смысл (стендартный сервер приложений).
>> Тогда надо на (СК) ставить server + доп.порт выделять.
А что один порт так жалко? Да и необязательно. Например клиет запустился зделал запрос СС получил ответ о успешном запуске ПР и коннектиться к ней.

half_litre (2004-05-31 13:46:00) [15]
>накой шут тогда СС нужен
А кто ж будет висет демоном и принимать заявки от (СС)
и запускать (ПР)

>можно попробовать передать хендл сокета в ПР
Вот это меня и интересовало, а нельзя ли с этого места
поподробнее plEEEEase

Polevi (2004-05-31 13:38:00) [16]
можно попробовать передать хендл сокета в ПР

Digitman (2004-05-31 13:36:00) [17]

> half_litre (31.05.04 13:32) [3]
> >использовать
> (ПР)->(CК), минуя (CC)

а накой шут тогда СС нужен, если ПР у тебя "умеет" напрямую "общаться" с СК ?

half_litre (2004-05-31 13:32:00) [18]
>использовать
(ПР)->(CК), минуя (CC)

>Создавай сокет в твоей ПР и работай.
Тогда надо на (СК) ставить server + доп.порт выделять.

atruhin (2004-05-31 13:27:00) [19]
А зачем использовать ? Можно ли использовать TServerClientThread из (СС)
Создавай сокет в твоей ПР и работай.

Digitman (2004-05-31 13:26:00) [20]

> Можно ли использовать TServerClientThread из (СС) в
> программе (ПР)

что это значит "использовать" ? поясни ..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »