Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Коннект к MySQL через прокси [D7, MySQL]


Shade__ ©   (2006-10-05 15:01:00) 

Клиент сидит в локалке. Подключается через прокси. Соответственно имеем
ProxyServer
Login
Password

БД находится в инете на сервере имеем
Адрес
Port
Имя БД
Логин
Пароль

как получить к ней доступ?
Желательно через ADO...
Хотя слышал компоненты специальные есть.

Подскажите пож-ста а то уже неделю мучаюсь.
Всем заранее спасибо.


mr.il   (2006-10-09 08:01:00) [1]

Это сервис

<?php
 require_once "config.php";
 $ID = $_POST['ID'];
 $PHONE_AR = array();
 $j = 1; foreach($_POST['PHONE'] as $PHONE_AR[$j]) {$j++;}
 for ($j = 1; $j <= 2; $j++) {
   if ($PHONE_AR[$j] <> '') {
     $sql = 'select ID from PHONE where PHONE_NN = %d AND ID = %d';
     $sql = sprintf($sql, $j, $ID);
     $Record = mysql_fetch_array(mysql_query($sql));
     if (empty($Record['ID'])) {
       $sql = 'INSERT INTO PHONE (PHONE, NN, ID) ';
       $sql .= 'VALUES ("%s", %d, %d)';
     } else {
       $sql = 'update PHONE set PHONE = "%s" ';
       $sql .= 'where NN = %d AND ID = %d';
     }
     $sql = sprintf($sql, $PHONE_AR[$j], $j, $ID);
     $sh = mysql_query($sql);
     if ($sh) {echo('TRUE');}
   }
 }



Это его вызов

const
 _host = ' http://www.microsoft.com/servis/';
var
 data: TIdMultiPartFormDataStream;
begin
//всякий код
   data := TIdMultiPartFormDataStream.Create;
   data.AddFormField('ID', Q_['ID']);
   data.AddFormField('PHONE[1]', Q_['PHONE1']);
   data.AddFormField('PHONE[2]', Q_['PHONE2']);
   data.AddFormField('e', '0');
   _Result := IdHTTP1.Post(_host+'iu.php', data);
   if _Result = 'TRUE' then begin
     Q_ENTERPRISE.Edit;
     Q_ENTERPRISE['is_update'] := 0;
     Q_ENTERPRISE.Post;
   end;
   data.Free;
end;


Shade__   (2006-10-06 18:10:00) [2]

Через Веб сервисы как делается хоть примерно. Может какой нить коддинг вышлешь?


mr.il   (2006-10-06 10:50:00) [3]

У меня сейчас сделано через АДО, с помощью договора с хостерам на открытие порта на хосте под мой IP.

В другом проекте делаю через веб-сервисы, без АДО и более гибко получается. Писанины конечно больше.


Shade__   (2006-10-06 10:13:00) [4]

АП


Наверх

Титульная страница Поиск, карта сайта Написать письмо