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

передача файла через 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]

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

---

← →
Vlad ©   (2005-11-18 16:17) [8]

> Nortsov   (18.11.05 15:57) [7]


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

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

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

---

← →
Romkin ©   (2005-11-18 16:22) [9]

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

---

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

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



Память: 0.47 MB
Время: 0.026 c