Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Tak ok, našiel som FREE komponentu, pomocou ktorej sa veľmi jednoducho pripojíte na internetový serv… poslední
Len tak 08.09.2006 12:19
Len tak

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 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

Zpět do poradny Odpovědět na původní otázku Nahoru