Работа с PChar в DLL

← →
nikolo © (2002-08-20 11:06) [0]

Всем привет! Кто может на примере показать как реализовать такую функцию в dll? Проблема в том, что делать Result := PChar(S); на нельзя, так как же выкрутиться? Ребята, очень надо...

{Функция в dll} Function FFF(pParam: PChar): PChar; Var S: String; Begin S := StrPas(pParam); ..... действия с S ..... Result := PChar(S); // это не правильно, а как надо? End; {В основной программе} procedure TForm1.Button1Click(Sender: TObject); Var SS: String; Begin SS := "Hello world!"; Label1.Caption := FFF(PChar(SS)); end;

← →
Ученик © (2002-08-20 11:09) [1]

Function FFF(pParam: PChar): PChar;
const
S: String = "";

← →
nikolo © (2002-08-20 11:15) [2]

Не понял! Можно подробнее?

← →
Skier © (2002-08-20 11:32) [3]

>nikolo
Напиши подробно :
- как экспортируешь функцию из DLL
- как описываешь её в host-приложении
- используешь ли явную загрузку библиотеки ?
если да, то как ты её грузишь...

← →
nikolo © (2002-08-20 11:43) [4]

Help!!!

← →
nikolo © (2002-08-20 12:02) [5]

> Skier ©, вообще-то не понятно, зачем такие подробности, но если надо, то:
-Экспортирую:
Function FFF(pParam: PChar): PChar; stdcall; external "my_lib.dll" name "FFF";
-Описываю в host-приложении:
Label1.Caption := FFF(PChar(SS));
-Библиотеку гружу явно.

>nikolo

Либо это полный бред, либо ты путаешь понятия !

В общем так : давай код полностью !

Function FFF(pParam: PChar; ParamSize : Integer) : PChar;
Var
S: String;
begin
...
Result:=StrPLCopy(pParam, s, ParamSize);
end;

← →
EVV (2002-08-20 12:46) [8]

Возможно дело в том, что выделение памяти для строки происходит в DLL.

Передай в DLL ссылку на переменную PChar, под которую выделишь память в программе.

Все это из-за менеджера памяти.

Работа с PChar в DLL Найти похожие ветки