VPF::TMemoryStream и DLL - Форум программистов

MikeLevinN

Дата 11.2.2008, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 6.9.2007

Репутация: нет
Всего: нет

Мне нужно из приложения передать TMemoryStream в DLL, там его обработать и вернуть другой TMemoryStream (размер входящего не равен размеру результата).

Как поступить? Использовать sharemem не хочу по причине ещё одной дополнительной библиотеки. Я думаю передавать как-то через PChar буфер, но вот как на деле поступить - не представляю.

Что посоветуете?

Спасибо.

VICTAR

Дата 11.2.2008, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(MikeLevinN @ 11.2.2008, 22:38

)

Что посоветуете?

Bpl не подойдет?

Alexeis

Дата 12.2.2008, 02:16 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Цитата(MikeLevinN @ 11.2.2008, 21:38

)

спользовать sharemem не хочу по причине ещё одной дополнительной библиотеки.

Есть же FastShareMem не требующий Dll.

Кроме того есть VirtualAlloc, который прекрасно справляется с выделением памяти и не требует менеджера кучи. На счет самого класса, то не советую. Лучше, вообще в Dll передать IStream полученный через TStreamAdapter, тогда не будет дублироваться VCL код и не нужно будет передавать классы и менеджер памяти будет использоваться родной (из программы)

--------------------

Vit вечная память.

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

гениальность идеи состоит в том, что ее невозможно придумать

lukas

Дата 14.2.2008, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


procedure String2Stream(a: String; b: TMemoryStream);
begin
b.Position := 0;
b.WriteBuffer(Pointer(a)^,Length(a));
b.Position := 0;
end;


procedure Stream2String(b: TStream; var a: String);
begin
b.Position := 0;
SetLength(a,b.Size);
b.ReadBuffer(Pointer(a)^,b.Size);
b.Position := 0;
end;

Использовать эти функции...

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »