Народ, помогите, пожалуйста, кто-нибудь работал с Метатрейдером 4 от MetaQuotes по HTTPS  ?
А то как-то совсем надоело использовать их внутренний мега_Си_подобный язык... 
Может у кого есть исходники иль на худой конец описание протокола   

Всем доброго времени суток 
Все про соединение по htpps было понятно на Delphi 7, но при переносе на Delphi 2007 при первом соединении выкидывает ошибку exception class EIReadTimeout whith message 'Read Timeout'. А дальше работает гладко. 
Фактически отпраляется 2 запроса на сервер (проверено), но ответ получается только на 2ой.
Хелп, плиз  

Aly, я тебе точно могу сказать - у тебя в программе что-то не так.
Чтобы работало правильно, нужно это исправить и будет работать нормально.

ну и? ReadTimeout. увеличь и будет тебе счастье

procedure TForm1.Button1Click(Sender: TObject);
  var Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create;
url:=url0+'USERNAME='+login+'&&PASSWORD='+pass+'&&ACT='+act;

IdHTTP.Get(URL,Stream);
Stream.SaveToFile(fname);
Stream.Free;


Если не сложно ткните носом, плиз

Добавлено @ 15:28
Таймаут  на 1000000 тоже мало 

Это сообщение отредактировал(а) Aly - 24.1.2008, 15:40

Помогите чайнику, как сделать чтобы если сервер к которому общаешься недоступен в данный момент отложить на какое-то время соединение.
Pleace!

Всем Привет! Пишу прогу проверки баланса на  https://onyma.radnet.ru. Нужно туда ввести имя и пароль и получить скока денег осталось.
Начал писать в Делфи на indy + openssl. Пишу такое в первый раз, поэтому помогите плиз! Очень интересно, но знаний кое-каких нехватает. Поставил на форму IdHTTP, порт 443, IdSSLIOHandlerSocket1, sslvTLSv1. 
procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    HTTP: TIdHttp;
    s: string;
    i:integer;

begin
  lData := TStringList.Create;
  try
    lData.Add('LOGIN=***');
    lData.Add('PASSWD=***');

    s:=IdHTTP1.Post('https://onyma.radnet.ru/', lData);                               / /*****
  finally
    lData.Free;
  end;


  memo1.Clear;
  http:=TIdHTTP.Create(nil);
  try
    s:=http.Get('https://onyma.radnet.ru/');
  except
    ShowMessage('No connect with server.');
    Exit;
  end;
  memo1.Lines.Add(s);
  http.Free;



Прога выдает No connect with server. В чем тут дело? Мне надо получить страничку ту которая появляется после ввода логина и пароля.

Добавлено через 3 минуты и 16 секунд
Всем Привет! Пишу прогу проверки баланса на  https://onyma.radnet.ru. Нужно туда ввести имя и пароль и получить скока денег осталось.
Начал писать в Делфи на indy + openssl. Пишу такое в первый раз, поэтому помогите плиз! Очень интересно, но знаний кое-каких нехватает. Поставил на форму IdHTTP, порт 443, IdSSLIOHandlerSocket1, sslvTLSv1. 
procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    HTTP: TIdHttp;
    s: string;
    i:integer;

begin
  lData := TStringList.Create;
  try
    lData.Add('LOGIN=novikov');
    lData.Add('PASSWD=77605');

    s:=IdHTTP1.Post('https://onyma.radnet.ru/', lData);                               / /*****
  finally
    lData.Free;
  end;


  memo1.Clear;
  http:=TIdHTTP.Create(nil);
  try
    s:=http.Get('https://onyma.radnet.ru/');
  except
    ShowMessage('No c

Это сообщение отредактировал(а) alexnov - 17.3.2008, 15:11