Получилось. На 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):