Помогите создать заголовочный файл для Dll

[ifynk]

Всем добрый день. Есть некая библиотека, написанная на C++. Она компилится в DLL. Мне нужно написать на Delphi заголовочный файл для работы с этой библиотекой. Функций там не много и я их перевел без трудностей кроме одной. Также есть заголовочный файл для C#. Конкретно интерисует, как правильно описать функцию FFQLAY_start и ее второй параметр char **argv



Експорт из С++:

__declspec (dllexport) int FFQLAY_start(int argc, char **argv, HWND hwndParent, int width, int height);

Заголовочный файл C#:

using System;
using System.Text;
using System.Runtime.InteropServices;

namespace ffqlayDemo
{
	/// <summary>
	/// Summary description for FLVPlayerLib.
	/// </summary>
	public class FFQlay
	{
		public enum PlayState {None, Playing, Paused, Abort, Stopped};
		//
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_start(int argc, [MarshalAs(UnmanagedType.LPArray, ArraySubType=UnmanagedType.LPStr)] IntPtr[] argv, IntPtr hwndParent, int width, int height);
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_pause();
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_stop();
		[DllImport("ffqlay.dll")]
		public static extern double FFQLAY_get_duration();
		[DllImport("ffqlay.dll")]
		public static extern double FFQLAY_get_position();
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_set_position(double position);
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_resize(int width, int height);
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_get_play_state();
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_get_volume();
		[DllImport("ffqlay.dll")]
		public static extern int FFQLAY_set_volume(int volume);
		//
		public static void FFQLAY_start(string fileName, IntPtr hwndParent, int width, int height)
		{
			IntPtr[] argv = new IntPtr[2];
			argv[0] = Marshal.StringToHGlobalAnsi("ffqlay.exe");
			argv[1] = Marshal.StringToHGlobalAnsi(fileName);
			FFQLAY_start(2, argv, hwndParent, width, height);
			Marshal.FreeHGlobal(argv[0]);
			Marshal.FreeHGlobal(argv[1]);
		}
	}
}

Заголовочный файл, что получился у меня, но при вызове функции FFQLAY_play прога просто вылетает без ошибок. если запускать через IDE, то вылетает ошибка Access Violation и перекидывает на окно CPU с ассемблерным кодом.

unit FFQlay;

interface

uses
  Windows;

type
  PArgs = ^TArgsArr;
  TArgsArr = array [0..1] of PChar;

const
  FFQLayDLL = 'ffqlay.dll';

function FFQLAY_start(argc: integer; argv: PArgs; wndHandle: DWORD; width: integer; height: integer): integer; stdcall; external FFQLayDLL;
function FFQLAY_pause: integer; stdcall; external FFQLayDLL;
function FFQLAY_stop: integer; stdcall; external FFQLayDLL;
function FFQLAY_get_duration: double; stdcall; external FFQLayDLL;
function FFQLAY_get_position: double; stdcall; external FFQLayDLL;
function FFQLAY_set_position(position: double): integer; stdcall; external FFQLayDLL;
function FFQLAY_resize(width, height: integer): integer; stdcall; external FFQLayDLL;
function FFQLAY_get_play_state: integer; stdcall; external FFQLayDLL;
function FFQLAY_get_volume: integer; stdcall; external FFQLayDLL;
function FFQLAY_set_volume(volume: integer): integer; stdcall; external FFQLayDLL;

function FFQLAY_play(fileName: string; hwndParent: HWND; width: integer; height: integer): integer;

implementation

function FFQLAY_play(fileName: string; hwndParent: HWND; width: integer; height: integer): integer;
var
  args: PArgs;
  
begin
  Result := 1;
  
  getmem(args, SizeOF(PArgs));  
  args[0] := PAnsiChar('ffqlay.exe');
  args[1] := PAnsiChar(fileName);

  FFQLAY_start(2, @args, hwndParent, width, height);
  //freemem(args, 30);
end;

end.

Подскажите, что я не так делаю.

[Luke]

Вообще не одна функа не вызывается? Если функи без параметров проходят на ОК, то неверное преобразование типов.
Из си программ выхов нормальный?

[ifynk]

Врапер на C# отрабатывает нормально. Параметры то в функцию FFQLAY_start передаются и вроде как что-то начинает работать, но потом тупо вылетает.

Вот тестовый проект.

[JTG]

function FFQLAY_play(fileName: string; hwndParent: HWND; width: integer; height: integer): integer;
var
  args: PArgs;
  name1,name2: array[0..260] of char;
begin
  Result := 1;
  new(args);
  StrCopy(name1, pchar('ffqlay.exe'));
  StrCopy(name2, pchar(fileName));
  args[0] := name1;
  args[1] := name2;
  FFQLAY_start(2, args, hwndParent, width, height);
  dispose(args);
end;

[ifynk]

Спасибо большое, работает. Вы - гений.