Скачать: CL | DM;

Не работают функции на сервере при Borland Socket - служба.   Найти похожие ветки 

← →
Chery   (2004-11-22 13:23) [0]

Borland Socket Server, Midas. Запустил Borland Socket Server как службу - вызываю с клиента методы (функции)на сервере. Ошибки не выдает, параметры передает, но ничего не делает (не работает CopyFile, Zip и др.). Функции на сервере возвращают false. Запускаю сокет как приложение - все работает.

---

← →
Chery   (2004-11-22 15:45) [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 и т.д. не работают.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c