unit1.pas

Delphi mysql 导入导出 COM-dll 源码 PHP 调用 demo

unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  DADump, MyDump, DB, DBAccess, MyAccess,
  ComObj, ActiveX, mysqlbckup_TLB, StdVcl;

type
  TYPMySql = class(TAutoObject, IYPMySql)
  protected
    function backup(const table, files: WideString): WideString; safecall;
    procedure set_(const g_server: WideString; g_port: SYSINT; const g_user,
      g_pass, g_database: WideString); safecall;
    function Restore(const filename: WideString): WideString; safecall;
  public
    server,username,password,database:string;
    port:Integer;
  end;

implementation

uses ComServ;

function TYPMySql.backup(const table, files: WideString): WideString;
var
  Conn: TMyConnection;
  Dump: TMyDump;
begin
  Conn:= TMyConnection.Create(nil);
  Dump:= TMyDump.Create(nil);
  Dump.Connection := Conn;
  Conn.Server := server;
  Conn.Port := port;
  Conn.Username :=  username;
  Conn.Password := password;
  Conn.Database := database;
  Conn.Options.Charset := 'utf8';
  try
    Conn.Connect;
  except
    Result := 'Can not connect to '+server+' user:'+username;
    Exit;
  end;
  if table<>'' then  Dump.TableNames := table;
  Dump.BackupToFile(files);
  Conn.Disconnect;
  Result := 'Backup Completed';
end;

function TYPMySql.Restore(const filename: WideString): WideString;
var
  Conn: TMyConnection;
  Dump: TMyDump;
begin
  Conn:= TMyConnection.Create(nil);
  Dump:= TMyDump.Create(nil);
  Dump.Connection := Conn;
  Conn.Server := server;
  Conn.Port := port;
  Conn.Username :=  username;
  Conn.Password := password;
  Conn.Database := database;
  Conn.Options.Charset := 'utf8';
  try
    Conn.Connect;
  except
    Result := 'Can not connect to '+server+' user:'+username;
    Exit;
  end;
  Dump.RestoreFromFile(filename);
  Conn.Disconnect;
  Result := 'Restore Completed';
end;


procedure TYPMySql.set_(const g_server: WideString; g_port: SYSINT;
  const g_user, g_pass, g_database: WideString);
begin
  server:=g_server;
  port:=g_port;
  username:=g_user;
  password:=g_pass;
  database:=g_database;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TYPMySql, Class_YPMySql,
    ciMultiInstance, tmApartment);
end.