Re: Цялата работа не е измислена добре / Компютри и Интернет / Delphi

Трябва през програма, написана на Delphi 6, да:
1. прочета данни от страница htm формат, отворена например в IE на MS или в компонента в програмата;
2. въведа данни в полета, които се намират в тази страница.

Става въпрос за следното конкретно действие.
Има база с данни на пациенти на лекар и по ЕГН-то им трябва да се провери осигурителният им здравен статус към момента.
Страницата за проверка е в сайта на НОИ, на адрес http://healthinsurance.nssi.bg/report_healthhtm_15_out.asp. В нея има три
полета за попълване:
- Въведете ЕГН\ЛНЧ - въвеждат се символи, стойността на ЕГН-то;
- ЕГН \ ЛНЧ - радиобутони - избор, по подразбиране ЕГН;
- Моля, въведете символите: въвеждат се символите от картинката под полето.

Трябва да се направи следното:
1. да изпратя данни от програмата, които да попълнят поле ЕГН\ЛНЧ - стринг и да маркирам единият от двата радиобутона;
2. да прочета стойността на картинката със специални символи и да ги въведа в съответното поле.

Това нещо предполагам може да стане по два начина:
1. програмата чете външен екран (напр. от IE) и манипулира данните там;
2. в компонента (T)WebBrowser отварям страницата в екран на програмата и там манипулирам данните.

На потребителят е нужно да натисне бутон <Направи справката>.

Ако смятате, че това е доста сложно и изисква доста време за изпълнение съм готов, да заплатя за направената услуга.

Приемем предложения на адрес: comp-d@comp-d.biz.

Доктора Ви благодари предварително с най-голямо уважение и ви пожелава Весели празници.

{}procedure TForm_ComPort.GetText;
var
xPar : string;
xHeader : string;
begin

xPar := ComboBoxPar.Text;
// xPar := Str_ToHTML( xPar);

xHeader := 'HTTP/1.1'+cCrLf+
'Host: '+sURL+cCrLf+
'Connection: Keep-Alive'+cCrLf;
if RadioGroupGetPost.ItemIndex=0 then begin
OutHTML := 'GET '+sFile;
if xPar<>'' then begin
OutHTML := OutHTML+'?'+Str_ToHTML( xPar)+cCrLf;
end;
OutHTML := OutHTML+' '+xHeader;
if EditSession.Text<>'' then begin
OutHTML := OutHTML +
'Cookie: PHPSESSID='+EditSession.Text+cCrLf;
end;
end else begin
if RadioGroupGetPost.ItemIndex=1 then begin
OutHTML := 'POST '+sFile+' '+xHeader+
'Content-Type: application/x-www-form-urlencoded'+cCrLf+
'Content-Length: '+IntToStr(length(xPar))+cCrLf;
if EditSession.Text<>'' then begin
OutHTML := OutHTML+
'Cookie: PHPSESSID='+EditSession.Text+cCrLf;
end;
if xPar<>'' then begin
OutHTML := OutHTML+
cCrLf+xPar;
end;
OutHTML := OutHTML+cCrLf;
end;
end;
OutHTML := OutHTML+cCrLf;
end;