Вот на эту строку выдает такую ошибку [DCC Error] Unit1.pas(78): E2003 Undeclared identifier: 'mpHttp'
Код: Выделить всё
Form2.MyConnection1.Options.Protocol := mpHttp;
Вот код на подключение к БД MySql:
Код: Выделить всё
try
Form2.MyConnection1.Server:=ComboBox1.Text;
Form2.MyConnection1.Username:=ComboBox2.Text;
Form2.MyConnection1.Database:=ComboBox3.Text;
Form2.MyConnection1.Password:=Edit3.Text;
if CheckBox1.Checked=true then begin
Form2.MyConnection1.HttpOptions.Url := 'http://niklay1w.bget.ru/tunnel.php';
Form2.MyConnection1.Options.Protocol := mpHttp;
Form2.MyConnection1.HttpOptions.ProxyOptions.Hostname := Proxy.Edit1.Text; //адрес прокси сервера необходим если доступ к http://server/ через прокси
Form2.MyConnection1.HttpOptions.ProxyOptions.Port := StrToInt(Proxy.Edit4.Text); // порт прокси
Form2.MyConnection1.HttpOptions.ProxyOptions.Username := Proxy.Edit2.Text; // логин прокси
Form2.MyConnection1.HttpOptions.ProxyOptions.Password := Proxy.Edit3.Text; //пароль прокси
end
else begin
Form2.MyConnection1.HttpOptions.Url := '';
Proxy.Edit1.Text:='';
Proxy.Edit2.Text:='';
Proxy.Edit3.Text:='';
Proxy.Edit4.Text:='';
end;
Form2.MyConnection1.Connected:=true;
Form2.Show;
Form1.Hide;
except
messagebox(0,'Невозможно подключиться к БД','Внимание!', MB_ICONINFORMATION);
exit;
end;
end;