Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.02;
Скачать: CL | DM;

Вниз

Работа с 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));
-Библиотеку гружу явно.


 
Skier ©   (2002-08-20 12:08) [6]

>nikolo

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

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




 
Юрий Федоров ©   (2002-08-20 12:21) [7]

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, под которую выделишь память в программе.

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



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

Текущий архив: 2002.09.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
14-3576
s-gorbachev
2002-08-05 16:55
2002.09.02
Помогите купить сервер(железку) для IB6 на 50 юзеров


3-3271
Ренат
2002-08-12 14:25
2002.09.02
ODBC driver


1-3465
cfg
2002-08-21 05:39
2002.09.02
проблема


6-3543
SDomsk
2002-06-24 12:52
2002.09.02
широковещательный запрос


3-3299
Елена
2002-08-11 13:00
2002.09.02
Вертикальная полоса прокрутки в DBGrid