VPF::DirectMySQLObject and D6 - Форум программистов

Quadre

Дата 21.2.2006, 01:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Собственно вопрос такой. Приложению необходимо работать с MSqlна удалённом сервере. Не хочеться его грузить лишними компонентами, посему решил поюзать DirectMysqlObjects.

Нашёл статейку, прочитал попробовал на локальном сервере - всё работает. Попробовал переписать на внешний - ошибка с коннектом. Помогите пожалуйста. Код следующий:

Код


unit u_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     MySQLClient: TMySQLClient;
     MySQLResult: TMysqlResult;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 MySQLClient := TMySQLClient.Create; 
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 MySQLClient.Free;
 if MySQLResult <> nil then
    MySQLResult.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ok : Boolean;
  i : integer;
  str : String;
begin
MySQLClient.Host := 'db1.ho.com.ua';
MySQLClient.port := 3306;
MySQLClient.user := 'tmp';
MySQLClient.password := 'rE6nXHn3jA';
MySQLClient.UnixSocket := '';
MySQLClient.Db := 'tmp';
MySQLClient.UseNamedPipe := false;
MySQLClient.UseSSL := false;
MySQLClient.Compress := false;
MySQLClient.TrySockets := false;

if MySQLClient.Connect then
  ShowMessage('connected ok!')
else begin
  ShowMessage('connected BAD :(');
  exit;
end;

end;

end.

Для полноты эксперимента захостился на бесплатном хостинге.
Я надеюсь люди здесь с совестью, и забирать данный хостинг некому не нужно, так как зарегестрроваться там не составит труда.
Параметры:
Login: tmp
Password: rE6nXHn3jA
Hosting server: s1.ho.com.ua
Server Name: tmp.ho.com.ua
Server Alias: www.tmp.ho.com.ua

Для управления хостингом используйте страницу:
https://ho.com.ua/cgi-bin/hosting.cgi

Для БД сделал пароль тотже
база: tmp
Login: tmp
Password: rE6nXHn3jA
https://s1.ho.com.ua/phpMyAdmin

Надеюсь на помошь. С ув. Алексей.

Quadre

Дата 22.2.2006, 00:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Что, никто не использовал эти юниты?
Или просто никто не хочет ответить на вопрос smile

Chpok

Дата 21.11.2006, 08:32 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 17.10.2006
Где: Томск, ул. Геолог ов

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

Я пользую эти долбаные юниты!!!
Но удалённо коннектиться не пробывал...

Vas

Дата 21.11.2006, 11:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Quadre, а порт 3306 на удаленном хостинге точно открыт?

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

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

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