vc的dll如何在delphi中使用下面是代码谢谢

Question

typedef enum {
   StandardNone                   = 0x80000000,
   StandardNTSC                   = 0x00000001,
   StandardPAL                    = 0x00000002,
   StandardSECAM                  = 0x00000004,
} VideoStandard_t; DLLEXPORT_API int __stdcall SetDefaultVideoStandard(VideoStandard_t VideoStandard);请转delphi谢谢

Answer 1

const
   StandardNone = $80000000;
   StandardNTSC                   = $00000001;
   StandardPAL                    = $00000002;
   StandardSECAM                  = $00000004;
type
  VideoStandard_t = (StandardNone, StandardNTSC, StandardPAL, StandardSECAM);function SetDefaultVideoStandard(VideoStandard: VideoStandard_t): Integer; stdcal;

Answer 2

我是这么写的通过，不过也谢谢你，给分
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  VideoStandard_t = (StandardNone= $80000000,StandardNTSC= $00000001,StandardPAL= $00000002,StandardSECAM= $00000004);type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  end;
  function SetDefaultVideoStandard(VideoStandard: VideoStandard_t):Integer;
    stdcall external 'DS40xxSDK.dll' name 'SetDefaultVideoStandard';
var
  Form1: TForm1;
  VideoStandard:VideoStandard_t;
implementation{$R *.dfm}end.