Czy mógłby mi ktoś podpowiedzieć jak napisać program w Delphi który będzie pobierał kolejne linie z komponentu Memo i wstawiał je w odpowiedznie miejsca w formularzu na stronie internetowej, i w jaki sposób można zaznaczać na stronie internetowej różne opcje w formularzu (chodzi mi o te kwadraciki jak są naprzykład przy zainteresowaniach jak zakłada se konta emailowe). Z góry bardzo dziękuje za jaką kolwiek pomoc.
Pozdrawiam.
[delphi]pobieranie danych za pomocą Memo
Rozpoczęty przez
zyziowarka
, 20 04 2008 22:01
1 odpowiedź w tym temacie
#1
Napisano 20 04 2008 - 22:01
#2
Napisano 24 04 2008 - 23:14
function uzupelnijpola;
var
dokumentwww : IHTMLDocument3;
poleimie : IHTMLInputTextElement;
plec: IHTMLSelectElement;
Submit : IHTMLInputElement;
begin
dokumentwww := WebBrowser1.Document as IHTMLDocument3; //zmiennej przypisujemy zawartosc WebBrowsera
//pole tekstowe
if assigned(dokumentwww) then //sprawdzamy czy istnieje dokument
poleimie :=
(dokumentwww.getElementsByName(?NAZWAPOLA?).item(0,?)as
IHTMLInputTextElement); //zmiennej poleimie przypisujemy wlasciowsci pola o nazwie NAZWAPOLA
if assigned(poleimie) then //sprawdzamy czy istnieje takie pole tekstowe
poleimie.value := ?imie?; //uzupelniamy zawarosc pola
//item box (rozwijana lista)
if assigned(dokumentwww) then //sprawdzamy czy istnieje dokument
plec :=
(dokumentwww.getElementsByName(?NAZWAPOLA?).item(0,?)as
IHTMLSelectElement); //zmiennej plec przypisujemy wlasciowsci pola o nazwie NAZWAPOLA
if assigned(plec ) then //sprawdzamy czy istnieje takie dany selectitem
plec.selectedIndex := 1; //wybieramy odpowiednia opcje
//przycisk
if assigned(dokumentwww) then
Submit :=
(dokumentwww.getElementsByName(?NAZWAPOLA?).item(0,?)as
IHTMLInputElement); //zmiennej Submit przypisujemy wlasciowsci buttona o nazwie NAZWAPOLA
if assigned(Submit ) then //sprawdzamy czy istneje takie dany button
Submit .form.submit; //symulujemy klikniecie
end;
tu maz funkcie do wstawiania w te biale pola na stronie otrzywiscie potrzebny webbrowser... musisz sobie nad nia posiedziec i ja rozpracowac...
a linie z memo wybieralo sie bodajze jak dobrze pamietam to
memo1.line[np.2];
jakos tak...
Użytkownicy przeglądający ten temat: 1
0 użytkowników, 1 gości, 0 anonimowych