Тема: dllVSBlitz
Показать сообщение отдельно
Старый 01.03.2007, 19:18   #16
Vyacheslav
ПроЭктировщик
 
Регистрация: 03.01.2007
Сообщений: 133
Написано одно полезное сообщение
(для 4 участников)
Re: 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):
(Offline)
 
Ответить с цитированием