Utilisation de la DLL Vic-Pilot avec Borland Delphi.

Placer la DLL Vic_Pilot.dll dans le répertoire Windows ou dans le répertoire même de votre application ou dans la variable Path..


utiliser ce prototype d'appel des fonctions:
function Lance_Vic:boolean; cdecl; external 'Vic_Pilot.dll' name 'Lance_Vic';
function Open_Vue(filename:string):boolean; cdecl; external 'Vic_Pilot.dll' name 'Open_Vue';
function Lance_Vue:boolean; cdecl; external 'Vic_Pilot.dll' name 'Lance_Vue';

procedure Vic_Start_path(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Start_path';
procedure Vic_Close_path; cdecl; external 'Vic_Pilot.dll' name 'Vic_Close_path';
procedure Vic_Insert_pah; cdecl; external 'Vic_Pilot.dll' name 'Vic_Insert_pah';
procedure Vic_Set_Width_Path(width:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Set_Width_Path';
procedure Vic_Stroke_Color(color:TColorRef); cdecl; external 'Vic_Pilot.dll' name 'Vic_Stroke_Color';
procedure Vic_Fill_Color(color:TColorRef); cdecl; external 'Vic_Pilot.dll' name 'Vic_Fill_Color';
procedure Vic_Laser_Color(color:TColorRef); cdecl; external 'Vic_Pilot.dll' name 'Vic_Laser_Color';
procedure Vic_unset_laser; cdecl; external 'Vic_Pilot.dll' name 'Vic_unset_laser';

procedure Vic_Add_ligne(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_ligne';
procedure Vic_Add_Circle(r:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_Circle';
procedure Vic_Add_Quart(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_Quart';
procedure Vic_Add_IQuart(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_IQuart';
procedure Vic_Add_Spline(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_Spline';
procedure Vic_Add_Bezier(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_Bezier';
procedure Vic_Add_Quadra(x,y:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Add_Quadra';

procedure Vic_Line(x,y,xx,yy:integer); cdecl; external 'Vic_Pilot.dll' name 'Vic_Line';
procedure Vic_Circle(x,y,r:integer; filled:boolean); cdecl; external 'Vic_Pilot.dll' name 'Vic_circle';
procedure Vic_Rectangle(x,y,l,h:integer; filled:boolean ); cdecl; external 'Vic_Pilot.dll' name 'Vic_Rectangle';
procedure Vic_Ellipse(x,y,l,h:integer; filled:boolean ); cdecl; external 'Vic_Pilot.dll' name 'Vic_Ellipse';
procedure Vic_Angle_Ellipse(cx,cy:integer; grand_axe,petit_axe:integer; angle:integer; filled:boolean ); cdecl; external 'Vic_Pilot.dll' name 'Vic_Angle_Ellipse';

Procedure d'exemple:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if Lance_Vic then
begin
  randomize;
  for i:=1 to 100 do
    begin
    Vic_Stroke_Color(rgb(random(255),random(255),random(255)));
    Vic_Line(1000+random(1000),1000+random(1000),random(2000)-1000,random(2000)-1000);
    end;
  end;
end;