forum.boolean.name - dllVSBlitz

Получилось. На Delphi пример dll-ки:

Создаем в Delphi DLL-проект и пишем:

Код:

library mydll;

uses SysUtils, Classes;

function GetSimpleText(LangRus: Integer): PChar; stdcall;

begin

  if LangRus=1 then

    Result := PChar('enf')

  else

    Result := PChar('рус');

end;

exports GetSimpleText;

begin

end.

Компилируем, копируем dll-ку в userlibs Блицу, создаем .decls-файл:

Код:

.lib "delphi_dll.dll"

GetSimpleText$(LangRus%)

и в Блице пишем:

Text 0,10,"From Delphi_dll ="+GetSimpleText(1)

Должно вывести "eng"

Вот так вот =) Это клёво, потому как мне, например, на Delphi удобнее работать, чем на Visual Studio :) .

Вот сорсы (dll и decls файлы в .../Blitz3D/userlibs):