??? TService и Socket

← →
AndrewVolkov (2002-12-17 18:54) [0]

Написал сервис (File->New->Other->Service Application
Инсталится без проблем, стартует - открывает порт, слушает - вообщем все работает.
Принимает сообщения, отсылает успешный прием. Но почему не отрабатывает функция shellexecute.??? Точнее она после отработки дает сообщение 42 (по хелпу все что выше 32 - значит успешно). но заказанная программа не запускается. Если вставляю в обработчик TService1.ServiceCreate все запускается с тем же сообщением 42. Значит как бы все правильно. Но в ClientRead прога не запускается. Если кто сталкивался расскажите в чем трабла. C winexec таже проблема.

procedure TService1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var i:integer;
begin
WriteFile("Message received from client > "+Socket.ReceiveText);

shellexecute(0,nil,"server.exe",nil,"c:\inst\socket",SW_SHOW)));
end;
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do begin
callf;
ServerSocket1.Socket.Connections[i].SendText("Connection accepted");
end;

function writeFile(str:String):boolean;
Var F:textFile;
Begin
AssignFile(F, "c:\temp.txt");
Append(F);
Writeln(F, str);
CloseFile(F);

end;

Спасибо...

← →
AndrewVolkov (2002-12-17 22:58) [1]

Мастера, поможите а...ну очень надо...

← →
AndrewVolkov (2002-12-17 23:57) [2]

вроде разобрался...завтра допроверю

??? TService и Socket Найти похожие ветки