Tak ok, našiel som FREE komponentu, pomocou ktorej sa veľmi jednoducho pripojíte na internetový server do MySQL. Ak by mal niekto záujem o komponetu http://tmysql5.blogspot.com/ - tu máte aj popis. Len treba mať stiahnutú DLL libmysql.dll.
Ešte mini úprava triedy MySQL5.pas :
procedure TMySQL5.SQLCommand(SQL: String);
var Result: PMYSQL_RES;
begin;
mysql_query(MySQL, pChar(SQL));
end;
procedure TMySQL5.Connect(Host, User, Pass, Data: String; Port: Integer=3306);
begin
MySQL := mysql_init(nil);
if MySQL = nil then Fail('Couldn''t init PMYSQL object');
try
if mysql_options(MySQL, MYSQL_OPT_CONNECT_TIMEOUT, @MyTime) <> 0 then Fail;
if mysql_real_connect(MySQL, pChar(Host), pChar(User), pChar(Pass), PChar(Data), Port, nil, MyComp) = nil then Fail;
except
Close;
end;
end;
- A chcel by som sa ešte spýtať, všimol som si u mňa v MySQL, že sa dajú posielať aj Gzip-ované hodnoty (mám tam položku - automaticky rozpoznať), ako to mám spraviť? Stačí hodnotu v dotaze jednoducho zbaliť cez GZip a je to?
Vďaka