Не работают функции на сервере при Borland Socket - служба. [D5, Win2k]
Chery © (2004-11-22 13:23:00)
Borland Socket Server, Midas. Запустил Borland Socket Server
как службу - вызываю с клиента методы (функции)на сервере. Ошибки
не выдает, параметры передает, но ничего не делает (не работает
CopyFile, Zip и др.). Функции на сервере возвращают false. Запускаю
сокет как приложение - все работает.
Chery (2004-11-22 15:45:00) [1]
В файле eventvwr.msc с систем 32 ошибок нет касательно сокета,
может есть еще какие-то файлы, я не знаю.
Насчет кода, даже не знаю что приводить:
Вызываю с клиента:
DataModule1.ConnectServ.AppServer.Zip(Bla);
На сервере создан метод: \
protected
class procedure UpdateRegistry(Register: Boolean; const
ClassID, ProgID: string); override;
procedure Zip(const Param1: WideString); safecall;
...
class procedure TProba.UpdateRegistry(Register: Boolean;
const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID,
ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID,
ProgID);
end;
end;
И вот выполняется метод:
procedure TProba.Zip(const Param1: WideString);
var
NumberZipped: Integer;
rerstr, pathd: string;
begin
...
with VCLZip do
begin
...
NumberZipped := Zip;
end; end;
Процедура вызывается, параметры, переменные обрабатываются, а
функции типа Zip, CopyFile и т.д. не работают.
Наверх 
ЧАТ |
Орешник |
|
