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

Вниз

Помогите с загрузкой функции из DLL   Найти похожие ветки 

 
_Garry ©   (2004-07-30 10:57) [0]

library Mydll;

uses
 Windows,SysUtils,
 Classes;

function AddSpace(S:String;FullDl:Integer;
         Fill:String):String; stdcall;
var
i:Integer;
begin
Result:="";
 for i:=0 to (FullDl-Length(S)) do
  S:=S+Fill;
Result:=S;
end;

exports
 AddSpace;
begin
end.

unit Unit1;
.......
implementation

function AddSpace(S:String;FullDl:Integer;
         Fill:String):String;stdcall;external "mydll.dll";

{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=AddSpace(Edit1.Text,20," +");
end;

Вот в таком виде ругается "Invalid pointer operation", но если продолжить выполнение, функция отрабатывается. Динамическая загрузка тоже выдаёт ошибку.
Заранее благодарю.


 
Reindeer Moss Eater ©   (2004-07-30 11:00) [1]

Прочитай внимательно комментарий, автоматически вставляемый IDE в файл проекта DLL


 
TUser ©   (2004-07-30 11:01) [2]

uses ShareMem


 
Sancho ©   (2004-07-30 11:02) [3]

Если ты передаешь строки в библиотеку, то надо использовать либо тип PChar, либо подключать модуль ShareMem (он должен быть первым в списке uses как библиотеки, так и приложения ее вызывающего). Проблема в том, что у библиотеки и приложения разные менеджеры памяти.


 
_Garry ©   (2004-07-30 14:01) [4]

Спасибо большое, джентельмены, помогло.
Удачи всем!



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1091102890
Aleksandr.
2004-07-29 16:08
2004.08.15
Допустимы ли для нормальной работы такие действия с объектом?


1-1090999769
Vedem
2004-07-28 11:29
2004.08.15
Компонент TListView


4-1088666904
Wistler
2004-07-01 11:28
2004.08.15
Работа с пользователями в домени WinNT


1-1091444541
Andy
2004-08-02 15:02
2004.08.15
MessageBox question


1-1091542603
dracula
2004-08-03 18:16
2004.08.15
как из exe фаила вытащить мета инфо