alguem sab como converter delphi em c# ou vb ?

alguem sab como converter delphi em c ou vb ?


to tentando converter esse codigo aki :

unit fBackup;

interface
uses
IniFiles, SysUtils, Forms, Windows, DateUtils, RpBase;
type
TBackup = class
private
fservidor, fnomeservidor, fbanco, ftipoconexao, fusuario,
fsenha, fcaminho : string;
procedure setfservidor (const Value : string);
procedure setfnomeservidor (const Value : string);
procedure setfbanco (const Value : string);
procedure setftipoconexao (const Value : string);
procedure setfusuario (const Value : string);
procedure setfsenha (const Value : string);
procedure setfcaminho (const Value : string);
protected
function getServidor () :string;
function getNomeServidor ():string;
function getBanco () :string;
function getTipoConexao () :string;
function getUsuario () :string;
function getSenha () :string;
function getCaminho () :string;
function montaSqlServer():string;
function montaMySql() :string;
public
property Servidor : string read fservidor write setfservidor;
property NomeServidor: string read fnomeservidor write setfnomeservidor;
property Banco : string read fbanco write setfbanco;
property TipoConexao : string read ftipoconexao write setftipoconexao;
property Usuario : string read fusuario write setfusuario;
property Senha : string read fsenha write setfsenha;
property Caminho : string read fcaminho write setfcaminho;
constructor Create () ;// override;
destructor Destroy; override;
procedure carregaValores();
function comandoBackup():string;
procedure executaBackup();
end;

implementation

uses uBackup;

{ TBackup }


function TBackup.comandoBackup: string;
begin
if fservidor = ´MSSQL´ then
Result := montaSqlServer()
else if fservidor = ´MYSQL´ then
Result := montaMySql();
end;

constructor TBackup.Create;
begin

end;

destructor TBackup.Destroy;
begin

inherited;
end;


function TBackup.getBanco: string;
begin
Result := fbanco;
end;

function TBackup.getCaminho: string;
begin
Result := fcaminho;
end;

function TBackup.getNomeServidor: string;
begin
Result := fnomeservidor;
end;

function TBackup.getSenha: string;
begin
Result := fsenha;
end;

function TBackup.getServidor: string;
begin
Result := fservidor;
end;

function TBackup.getTipoConexao: string;
begin
Result := ftipoconexao;
end;

function TBackup.getUsuario: string;
begin
Result := fusuario;
end;

function TBackup.montaMySql: string;
begin

end;

function TBackup.montaSqlServer: string;
Var
stringBackup, stringOSQL, stringlog, meseano, backuptipo : string;
begin
stringOSQL := ´osql -S ´ + fnomeservidor;
if ftipoconexao = ´SQL´ then
stringOSQL := stringOSQL + ´ -U ´ + fusuario + ´ -P ´ + fsenha
else if ftipoconexao = ´INTEGRADA´ then
stringOSQL := stringOSQL + ´ -E´;
meseano := FormatDateTime(´mmyyyy´, Date);
if ParamStr(1) = ´-d´ then
backuptipo := ´DIFFERENTIAL,´;
stringBackup := ´ -Q ´BACKUP DATABASE [´ + fbanco + ´] TO DISK = N´´´ + fcaminho + ´\´ + fbanco + ´_´ + meseano + ´.bak´´ WITH ´ + backuptipo + ´ NOFORMAT, NOINIT, NAME = N´´´ + fbanco + ´-Full Database Backup´´, SKIP, NOREWIND, NOUNLOAD, STATS = 10´´;
stringlog := ´ >> Backup_log.log´;

Result := stringOSQL + stringBackup + stringlog;

end;

procedure TBackup.carregaValores();
var
Banco: TIniFile;
begin
Banco := TIniFile.Create(ExtractFilePath(Application.ExeName) + ´\Backup.ini´);
fservidor := Banco.ReadString(´CONFIGURACAO´, ´SERVIDOR´, ´SERVIDOR´);
fnomeservidor := Banco.ReadString(´CONFIGURACAO´, ´NOMESERVIDOR´, ´NOMESERVIDOR´);
fbanco := Banco.ReadString(´CONFIGURACAO´, ´BANCO´, ´BANCO´);
ftipoconexao := Banco.ReadString(´CONFIGURACAO´, ´TIPOCONEXAO´, ´TIPOCONEXAO´);
fusuario := Banco.ReadString(´CONFIGURACAO´, ´USUARIO´, ´USUARIO´);
fsenha := Banco.ReadString(´CONFIGURACAO´, ´SENHA´, ´SENHA´);
fcaminho := Banco.ReadString(´CONFIGURACAO´, ´CAMINHO´, ´CAMINHO´);
end;

procedure TBackup.setfbanco(const Value: string);
begin
fbanco := Value;
end;

procedure TBackup.setfcaminho(const Value: string);
begin
fcaminho := Value;
end;

procedure TBackup.setfnomeservidor(const Value: string);
begin
fnomeservidor := Value;
end;

procedure TBackup.setfsenha(const Value: string);
begin
fsenha := Value;
end;

procedure TBackup.setfservidor(const Value: string);
begin
fservidor := Value;
end;

procedure TBackup.setftipoconexao(const Value: string);
begin
ftipoconexao := Value;
end;

procedure TBackup.setfusuario(const Value: string);
begin
fusuario := Value;
end;

procedure TBackup.executaBackup;
Var
Comando : string;
begin
Comando := ´cmd /c echo ================================================================================ >> Backup_log.log´;
WinExec(PChar(Comando), SW_HIDE);
Comando := ´cmd /c date /t >> Backup_log.log´;
WinExec(PChar(Comando), SW_HIDE);
Comando := ´cmd /c time /t >> Backup_log.log´;
WinExec(PChar(Comando), SW_HIDE);
Comando := ´cmd /c ´ + montaSqlServer;
WinExec(PChar(Comando), SW_HIDE);
end;

end.