filename.pas

来自「these are some texts and original progra」· PAS 代码 · 共 67 行

unit filename;

interface
uses
  SysUtils,windows;

  function GetImageFileName(time:TDateTime;index:Integer):string;
  function GetDatFileName(time:TDateTime):string;
var
  g_RoadCode:string = 'AAAAAA';
  g_FaultCode:string = '01';
implementation
  procedure GetPicName(var tm:TSYSTEMTIME;road,code:PChar;index:Integer;filename:PChar);cdecl;external 'filename.dll';
  procedure GetDatName(var tm:TSYSTEMTIME;road,code:PChar;filename:PChar);cdecl;external 'filename.dll';


{function GetImageFileName(time:TDateTime;index:Integer):string;
var
  tm:TSYSTEMTIME;
  str:array [0..256] of char;
  tmp:String;
  len:Integer;
begin
  DateTimeToSystemTime(time,tm);
  GetPicName(tm,PChar(g_RoadCode),PChar(g_FaultCode),index,str);
  tmp:=str;
  Result:=tmp;
end;}

function GetImageFileName(time:TDateTime;index:Integer):string;
var
  tm:TSYSTEMTIME;
  str:array [0..256] of char;
  tmp:String;
  len:Integer;
begin
  DateTimeToSystemTime(time,tm);
  if index = 4 then
  begin
  GetPicName(tm,PChar(g_RoadCode),PChar(g_FaultCode),1,str);
  tmp:=str;
  len := length(tmp);
  tmp[len-4]:= '1';
  end
  else
  begin
  GetPicName(tm,PChar(g_RoadCode),PChar(g_FaultCode),index,str);
  tmp:=str;
  end;
  Result:=tmp;
end;

function GetDatFileName(time:TDateTime):string;
var
  tm:TSYSTEMTIME;
  str:array [0..256] of char;
  tmp:String;
begin
  SetLength(Result,256);
  DateTimeToSystemTime(time,tm);
  GetDatName(tm,PChar(g_RoadCode),PChar(g_FaultCode),str);
  tmp:=str;
  Result:=tmp;
end;

end.