Показать сообщение отдельно
  #2  
Старый 02.02.2016, 12:20
i1j1k1 i1j1k1 вне форума
Прохожий
 
Регистрация: 01.02.2016
Сообщения: 3
Версия Delphi: Delphi XE 7
Репутация: 10
По умолчанию Дополнение

Осознал, что для моей цели нужно использовать WebModule. Параметры теперь получаю, но проблема с их отправкой.
Код:
  data := TIdMultiPartFormDataStream.Create;
  for i := 0 to Request.ContentFields.Count-1 do
    begin
      p:=pos('=',Request.ContentFields[i]);
      sl:=Copy(Request.ContentFields[i],1,p-1);//левая часть, название параметра
      sr:=Copy(Request.ContentFields[i],p+1,length(Request.ContentFields[i])-p); //правая часть, значение параметра
      data.AddFormField(sl,sr);
    end;
  IdHTTp1:=TIdHTTP.Create(nil);
  IdHTTp1.Request.UserAgent:='Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.12';
  IdHTTp1.Request.Host:=sname;
  Response.Content:=Response.Content+IdHTTp1.Post('http://'+sname+'/MarcWeb/Exe/OPACServletBody.exe',data);

В общем, приходит ответ от исходного EXE файла, "Ошибка параметров HTML-формы!" (генерируется им).
Как сделать так, чтобы переслать без каких-то искажений все входящие POST параметры? Или в чем сейчас может быть разница между тем, как параметры пришли в мой CGI и как были переданы. Исходя из того, что при получении параметров через моего посредника, исходное CGI сообщает об ошибке, какая-то разница существует.
Ответить с цитированием