Xors3D для Delphi 7

[maxturbo]

Вот решил написать враппер движка Xors3D для Delphi 7, вроди немного написал, но когда я пытаюсь запустить его то вылезает ошибка вот ниже код:

program Sample;
uses
  SysUtils,
  xors3dsdk in 'Xors3DSDK.pas';

var cam, cube:integer;
begin
  xGraphics3D(800,600,32,1,0);
  cam:=xCreateCamera();
  cube:=xCreateCube();

  xMoveEntity(cam,0,0,-5);

  xCreateLight();
  xAmbientLight(0,0,0);

 while xKeyHit(1)=0 do
  begin
     xTurnEntity(cube,1,1,1);
     xRenderWorld;
     xFlip;
  end;
end.

Указывает на xFlip и вот что пишет
"Sample.exe faulted with message: "access violation at 0x00407e26: write of address 0x00130000" Process Stopped. Use Step or Run to continue"
Помогите решить эту проблему

[giraf]

функцию вызываешь из dll каким методом cdecl или stdcall?
Попробуй так:
procedure xFlip();cdecl; external 'xors3d' name '_xFlip@0";
и еще имена функций в dll чувствительны к регистру.

[maxturbo]

Неа не помогло ... Может надо еще подобие функций писать что находятся в Xors3D.bb ?
К примеру как эта:

Function xGraphics3D(width, height, depth = 16, mode = 0, vsync = 0)
	hwnd = SystemProperty("AppHWND")
	xSetWND(hwnd)
	DLL_xGraphics3D(width, height, depth, mode, vsync)
End Function

Только я вот не знаю как ее написать

[maxturbo]

Собственно вот как я пишу:
Ниже файл Xors3DSDK.pas

unit Xors3DSDK;
interface
procedure xGraphics3D(w:Integer;h:Integer;d:Integer=0;mode:Integer=0;v:Integer=0);cdecl; external 'Xors3D' name '_xGraphics3D@20';
implementation
end.

и вот так каждую команду!!! И как понять имена функций в dll чуствительны к регистру? может их как нибудь прежди временно регестрировать в Windows? Вобщем помогите кто чем может...

[maxturbo]

Все всем спасибо проблемка решена Может в дальнейшем будут еще вопросы!!!Просто надо было вызывать функцию методом stdcall а не cdecl В особенности спасибо giraf за мысль

[giraf]

Бывает когда метод stdcall работает, а бывает и cdecl, все зависит от длл

[firstvirus]

Не стану мусорить созданием новой темы, поэтому напишу тут. Использую unit файл от товарища maxturbo, для написания программы в Delphi. Тестовый код:

  xCreateLog (0,1,'xors_log.html');
  xAppTitle('Test');
  xGraphics3D (800,600,32,0,1);
  xSetBuffer(xBackBuffer());
  xInitDraw();
  vr_SetColorScheme(1);
  testImage:=xLoadImage('test.png');
  repeat
    xCls();
    xDrawImage(testImage,0,0,0);
    xFlip();
  until xKeyHit(KEY_ESCAPE)<>0;

Однако при попытке запуска приложения возникает ошибка. Путем дебага выяснил что переменная testImage пуста, т.е. функция не вернула значение. Так же функция xCreateLog не создает файл лога и соответственно не могу посмотреть в чем дело. Замена stdcall на cdecl не помогла.


Чет нифига не понимаю. Заработало когда опять поменял stdcall на cdecl. Хотя 5 минут назад нифига не происходила. Жаль что вопрос не по теме, но теперь такая же проблема с FastImage.

[Knightmare]

Насколько я помню, делфи юзает свой велосипед для строк. А двиг юзает стандартные const char *, т.е. тупо массив символов.

[Randomize]

xCreateLog (0,1,PChar('xors_log.html'));
xAppTitle(PChar('Test'));
xLoadImage(PChar('test.png'));
Попробуй.

[.Squid]

А откуда взялась идея в первый аргумент xCreateLog засовывать ноль?
Там допустимые значения от 1 до 7.

[Randomize]

И к чему приводит этот ноль?

[.Squid]

Ни к чему. Лог не создается, все свободны, всем спасибо.

[firstvirus]

Большое спасибо. Немного посидев и подумав переделал файл заголовков. Нужно было передавать данные в библиотеку не ShortString, a PAnsiChar.

[Randomize]

Дак в Windows повсеместно PChar и PAnsiChar.
Это пишут в любом учебнике Delphi.