VPF::Передача строки из DLL - Форум программистов

CompWorm

Дата 27.7.2006, 13:27 (ссылка)

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

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

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

Доброго времени суток!

у меня такой вопрос:
есть простой вызов функции в программе:

Код


function rrr: string;
begin;
result:='тест';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.text:=rrr;
end;

смысл - уздеть в текстовом окне строчку "тест" передаваемую из функции "rrr".
как не странно, так все работает.

теперь переносим функцию "rrr" в DLL.
соответственно главная программа вылядит так:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  function rrr: string;
  external 'dll/project2.dll';

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.text:=rrr;
end;

end.

а код DLL соответственно

Код


library Project2;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

{$R *.res}

function rrr: string;
begin;
result:='test';
end;

exports rrr;

begin
end.

и при таком раскладе вылазит ошибка "инвалид поинтр".
если в dll сделать так, что б передавалось число, нипример интеджер, то все работает нормально.

отсюда вопрос:
как из DLL передать строку типа интеджер?

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

>>> Indie Games Club! <<<

Snowy

Дата 27.7.2006, 13:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Посмотри внизу страницы.
Тема неоднократно обсуждалась.

CompWorm

Дата 27.7.2006, 13:41 (ссылка)

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

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

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

я уже посмотрел...
я всегда сначала смотрю бывшие темы.
и не понятно.
там че-то с памятью жестко замудрили.
плюс я не монстр программирования, так что
если можно, по подробнее момент поясните пожалуйста.

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

>>> Indie Games Club! <<<

Snowy

Дата 27.7.2006, 13:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Используй PChar.
Память под него выделяй в том же модуле, где и освобождаешь.

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