procedure TDM.DataModuleCreate(Sender: TObject);
begin
INI := TINIFile.Create('Server.ini');
MySQLCTrav.ClientLibrary:='';
// if t4a_Is64BitWindows then begin
// MySQLCTrav.ClientLibrary:=GetCurrentDir+'\libmysql32.dll';
// end else begin
// MySQLCTrav.ClientLibrary:=GetCurrentDir+'\libmysql64.dll';
// end;
if( FileExists(GetCurrentDir+'\Server.ini')) then begin
MySQLCTrav.HostName := INI.ReadString('Server','HostIp','');
MySQLCTrav.UserName := INI.ReadString('Server','User','');
MySQLCTrav.Password := INI.ReadString('Server','Password','');
MySQLCTrav.DatabaseName := INI.ReadString('Server','DatabaseName','');
MySQLCTrav.Port := INI.ReadInteger('Server','Port',3306);
end else begin
MySQLCTrav.DatabaseName:='Traveler';
MySQLCTrav.HostName:='localhost';
MySQLCTrav.UserName:='kkkk';
MySQLCTrav.Password:='9999';
MySQLCTrav.Port:=3306;
Ini.WriteString('Server','HostIp',MySQLCTrav.HostName);
Ini.WriteString('Server','User',MySQLCTrav.UserName);
Ini.WriteString('Server','Databasename',MySQLCTrav.DatabaseName);
Ini.WriteString('Server','password',MySQLCTrav.Password);
Ini.WriteInteger('Server','Port',MySQLCTrav.Port);
end;
MySQLCTrav.ClientLibrary:=GetCurrentDir+'\libmysql.dll';
MySQLCTrav.Connected:=true;
end;