Работа с dll

[Alex Logos]

Хочу наладить рАботу подпрограммы, которая находится в длл, для рАботы с данными типа String. На входе и выходе подпрограммы дожна быть строка. Как лучше это сделать? Или лучше конвертировать в PChar?

[mihali4]

Где код DLL?

[0nni]

лучше так не делать, обычно функцие передается указатель на буфер, который заполняется значениями, пример GetWindowText().
Хотя можно подключить ShareMem и вроде даже должно работать.

[Alex Logos]

Длл конечно дубовая, мне просто надо отработать этот метод. В реале есть несколько крупных процедур обработки текста, которые налажены и нормально работают. Задача - вывести их за пределы тела программы - мне уже трудно ориентироваться.


library Project2;

uses
SysUtils,
Classes,
ShareMem;

function Rjad(st:String):String; stdcall;
var s:string;
begin
if Length(st)>4 then
begin
try
s:=copy(st,1,(Length(st)-3));
except Result:='1';
Result:=s;
end
else Result:='Малая длина строки';
end;

exports
Rjad INDEX 1 NAME 'Rd';

begin
end.
в Uses ShareMem

обьявляю в var
Rs: function(st:String):String; stdcall;

Потом пишу не менее дубовый обработчик
по кнопе:
procedure TForm1.Button2Click(Sender: TObject);
var Result1:String;
begin
@Rs := nil;
LibHandle := LoadLibrary('Project2.dll');
if LibHandle >= 32 then
begin
@Rs := GetProcAddress(LibHandle, 'Rd');
if @MyFunc <> nil then
begin
Result1 := Rs(Edit3.Text);
FreeLibrary(LibHandle);
end
else ShowMessage('лажа');
Edit5.Text := Result1;
end;
end;

в результате получаю "лажу" і invalid pointer operation