VPF::Параллельные соединения к mysql - Форум программистов

sunnmas

Дата 4.9.2009, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.4.2009

Репутация: нет
Всего: нет

Использую Zeos для обращения к mysql из Дельфи
Имеется многопотоковое приложение.
В главном потоке все было настроено визуально и все фурычит
В соседнем потоке создаю все вручную:
..
  Connect:=TZConnection.Create(nil);
  Query:=TZQuery.Create(nil);
  Connect.HostName:='127.0.0.1';
  Connect.Protocol:='mysql-5';
  Connect.Database:='dleadder';
  Connect.User:='root';
  Connect.Password:='';
  Query.SQL.Text:='SELECT `index`,`site` FROM `....'
  Query.Open; <-здесь зависает
..
  Правда я захожу под одним и тем же rootом в обоих потоках на разных соединениях. Так можно?

PS max_connections = 0 для rootа

Это сообщение отредактировал(а) sunnmas - 4.9.2009, 10:31

Romikgy

Дата 6.9.2009, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

откель

Цитата(sunnmas @ 4.9.2009, 09:23

)

Query

знает по какому

Цитата(sunnmas @ 4.9.2009, 09:23

)

Connect

ему работать ?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

dvamaster

Дата 22.9.2009, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Но ведь используется одна DLL

что-то слышал про mysql_thread_init

как она работает?

Добавлено через 8 минут и 6 секунд
машинный перевод для mysql_thread_init

Эта функция должна вызываться для каждого созданного потока для инициализации потока специфических переменных.

а вот в Zeos`е не найдено использование этой фукции, есть только переменная с указателем на нее

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

dvamaster

Дата 23.9.2009, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Код


procedure TMyThread.Execute;
var
  i: Integer;
  m: PMYSQL;
begin
  if mysql_thread_init <> 0 then
    begin
      n := 'Не инициирован поток';
      Synchronize(MM);
    end;
  m := mysql_init(nil);
  if m = nil then
    begin
      n := 'Не инициирован MySQL';
      Synchronize(MM);
    end;
  if mysql_real_connect(m, 'host', 'user', 'pass', 'db', 3306, nil, 0) = nil then
    begin
      n := 'Не инициировано подключение';
      Synchronize(MM);
    end;
  for i := 0 to 100 do
    begin
      if mysql_query(m, 'SELECT * FROM `users`') <> 0 then
        begin
          n := 'ошибка в ' + IntToStr(i) + ' цикле';
          Synchronize(MM)
        end;
      Sleep(Random(100));
    end;
  mysql_thread_end;
  mysql_close(m)
end;

попробовал такой код, запустил 2 потока

приложение сразу ошибки на mysql_thread_init, оба потока отваливаются
если его убрать то втором потоке mysql_real_connect выдает ошибку

Это сообщение отредактировал(а) dvamaster - 23.9.2009, 13:09

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »