передача файла через midas

← →
Nortsov (2005-11-18 10:50) [0]

Привет всем
Кто пробовал передавать файлы от сервера к клиенту через midas (сокетное соединение). В статье "Midas и COM. Советы и Приемы" с этого сайта это описано, но пока у меня не получилось реализовать эту технологию

← →
Digitman © (2005-11-18 10:53) [1]

и в чем проблема ?

← →
Nortsov (2005-11-18 11:09) [2]

проблема в том что не получается, в статье написанно, что надо создать DatasetProvider и ClientDataSet, но при открытии клиента возникает ошибка Missing DataSet property т.к., действительно его нет, он должен крейтится в обработчике BeforeGetRecirds Датасет провайдера

← →
Digitman © (2005-11-18 11:21) [3]

> Nortsov (18.11.05 11:09) [2]

что-то я не понял, причем здесь какой-то DatasetProvider и ClientDataSet..

тебе же нужно просто передать из Арр-сервера клиентской стороне содержимое некоего файла ?

Ну так объяви и реализуй соответствующий метод интерфейса Арр-сервера !

IMyAppServer = interface(IAppServer)
..
function GetFile: OleVariant; safecall;
..
end;

var
FileData: OleVariant;

..

FileData := IMyAppServer(MySocketConnection.AppServer).GetFile;

← →
Nortsov (2005-11-18 11:31) [4]

ок, щас попробую, в статье то по другому было написанно :-(

← →
Nortsov (2005-11-18 12:09) [5]

а можно чуть подробнее на сервере что должно быть? Я так понимаю определение интерфейса
IMyAppServer = interface(IAppServer)
..
function GetFile: OleVariant; safecall;
..
end;

в GetFile стоит считывание файла типа Readln(AFile, Rec);

?

а на клиенте при запросе файла серверу надо передавать имя файла

var
FileData: OleVariant;

..

FileData := IMyAppServer(MySocketConnection.AppServer).GetFile;
?

← →
Digitman © (2005-11-18 13:29) [6]

> на сервере что должно быть?

объявление соотв.интерфейса и реализация его методов.

> на клиенте при запросе файла серверу надо передавать имя
> файла

самому дотумкать так уж трудно ?

function GetFile(FileName: OleVariant) : OleVariant; safecall;
..
FileData := IMyAppServer(MySocketConnection.AppServer).GetFile("такой-то");

← →
Nortsov (2005-11-18 15:57) [7]

хорошо, а в каком месте объявить соотв.интерфейс и реализацию его методов? в обработчике при создании формы?

> Nortsov (18.11.05 15:57) [7]

> хорошо, а в каком месте объявить соотв.интерфейс и реализацию
> его методов? в обработчике при создании формы?

Интерфейс объявляется и реализуется в серверном COM-объекте.
(Про создание COM объектов лучше все-таки почитать умную книжку)

Клиент, используя, например SocketConnection, вызывает метод этого интерфейса.

Интерфейс уже есть, если есть Remote Data Module. См библиотеку типов сервера (view type library)

передача файла через midas Найти похожие ветки