Текущий архив: 2006.12.17;
Скачать: CL | DM;

Вниз

Коннект к MySQL через прокси   Найти похожие ветки 

← →
Shade__   (2006-10-05 15:01) [0]

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

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

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

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

---

← →
Shade__   (2006-10-06 10:13) [1]

АП

---

← →
mr.il ©   (2006-10-06 10:50) [2]

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

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

---

← →
Shade__   (2006-10-06 18:10) [3]

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

---

← →
mr.il ©   (2006-10-09 08:01) [4]

Это сервис

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


---

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

Текущий архив: 2006.12.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.046 c