Re: Delphi MapleStory Server (supports v75 & v80)
I Use Wzexplorer in database.pas
procedure TfrmDatabase.btnConnectClick(Sender: TObject);
var
InfoQ: TZQuery;
begin
FDB := TDatabaseConnection.Create(edtDBName.Text, True);
try
InfoQ := FDB.GetQuery;
InfoQ.SQL.Text := 'CREATE TABLE `mcdb_info` (' +
'`version` int(11) NOT NULL, ' +
'`subversion` int(11) NOT NULL, ' +
'`maple_version` int(11) NOT NULL ' +
'`maple_locale` enum('global','europe','korea','japan','vietnam',' thailand','sea','brazil','china','taiwan') NOT NULL' +
'`test_server` tinyint(1) NOT NULL default '0',
') ENGINE=InnoDB DEFAULT CHARSET=latin1;';
InfoQ.ExecSQL;
InfoQ.SQL.Text := 'INSERT INTO mcdb_info VALUES
maj, :min, :mver)';
InfoQ.ParamByName('maj').AsInteger := 4;
InfoQ.ParamByName('min').AsInteger := 2;
InfoQ.ParamByName('mver').AsInteger := ArchiveByName('Base.wz').Version;
InfoQ.ExecSQL;