Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

Проблема с конектом к MySQL   Найти похожие ветки 

 
Falcon(TFsoft) ©   (2006-02-23 23:35) [0]

Собственно вопрос такой. Приложению необходимо работать с 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: tmpPassword: rE6nXHn3jAHosting server: s1.ho.com.uaServer Name: tmp.ho.com.uaServer Alias: www.tmp.ho.com.ua
Для управления хостингом используйте страницу:https://ho.com.ua/cgi-bin/hosting.cgi
Для БД сделал пароль тотжебаза: tmp Login: tmpPassword: rE6nXHn3jAhttps://s1.ho.com.ua/phpMyAdmin
Надеюсь на помошь. С ув. Алексей.


 
Плохиш ©   (2006-02-24 00:13) [1]


> MySQLClient.Host := "db1.ho.com.ua";
> Для полноты эксперимента захостился на бесплатном хостинге

Можешь забыть, нормальный провайдер не даст тебе доступ к БД из вне, а если даст, то от такого дырявого якобыпровайдера надо бегом бежать.


 
Falcon(TFSoft) ©   (2006-02-24 01:12) [2]

ок. тема закрыта. спасибо. я думал это изьян...



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.048 c
9-1128434814
3d[Power]__
2005-10-04 18:06
2006.04.16
Простая физ симуляция


15-1143363049
Yegorchic
2006-03-26 12:50
2006.04.16
Backup по-русски


2-1143693492
greg123
2006-03-30 08:38
2006.04.16
NMPOP3 и IDPOP3 - проблема с вложениями в письме


2-1143649954
tort
2006-03-29 20:32
2006.04.16
Как установить коррдинаты курсора в МЕМО?


1-1142237710
DelphiLexx
2006-03-13 11:15
2006.04.16
Окно свойств подобное Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский