mainfrom.pas

这是一个远程序数据更新程序,已经调试通过.并有可执行文件.

unit MainFrom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, jpeg, ExtCtrls, OleCtrls, SHDocVw, UrlMon;

type
  TMainFrm = class(TForm)
    Label1: TLabel;
    edtUid: TEdit;
    Label2: TLabel;
    edtPwd: TMaskEdit;
    btnStart: TButton;
    btnStop: TButton;
    Bevel1: TBevel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    edtVersion: TEdit;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure btnStartClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetVersion:string;
  end;

var
  MainFrm: TMainFrm;

implementation

{$R *.dfm}

//下载文件
function DownloadFile(Source, Dest: string): Boolean; 
begin 
  try
    Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;

//取逻辑驱动器列表
function   GetLogicalDrives   :   WideString;
var
  drives   :   set   of   0..25;
  drive   :   integer;
begin
  Result   :=   '';
  DWORD(   drives   )   :=   Windows.GetLogicalDrives;
  for   drive   :=   0   to   25   do
    if   drive   in   drives   then
  Result   :=   Result   +   Chr(   drive   +   Ord(   'A'   ));
end;


function GetFileContent(fileName: string; lineNo:integer): string;
var
  strlist: TStringList;
begin
  strlist := TStringList.Create;
  try
    strlist.LoadFromFile(filename);
    if lineNo <= strlist.Count then
      result := strlist.Strings[lineNo-1]
    else
      result := '';
  finally
    strlist.Free;
  end;
end;

//取合法盘符
function GetDriverChar: string;
var
  DriverList: string;
  driver: pchar;
  i,x: integer;
begin
  DriverList   :=   GetLogicalDrives;

  for   i   :=   1   to   Length(DriverList)   do
  begin
      driver:=Pchar(DriverList[i]   +   ':\');   //要显示的驱动器名
      x   :=   GetDriveType(driver);
      if (x=2) and fileExists(DriverList[i]+ ':\key.dat') and
          (GetFileContent(DriverList[i]+ ':\key.dat', 1)='===###===') then begin
        result := DriverList[i]   +   ':\';
        exit;
      end;
  end;
end;




    



procedure TMainFrm.FormCreate(Sender: TObject);
begin
  self.WebBrowser1.Navigate('http://www.gpsdl.com/gpsnotice.asp');
  self.edtVersion.Text := getVersion;
end;

function TMainFrm.GetVersion: string;
begin
  result := '1.0.0.0';
end;

procedure TMainFrm.btnStartClick(Sender: TObject);
var
  dc: string;
begin
  dc:=GetDriverChar;

  if dc='' then begin
    ShowMessage('请插入SD卡！');
    exit;
  end;

  if DownloadFile('http://www.gpsdl.com/gpsdown.asp?'+'&save=0&mtype='+
      GetFileContent(dc+'key.dat',3), dc+'data.bin') then
    showmessage('下载完成!')
  else
    showmessage('下载失败!');
end;

end.