Skocz do zawartości


Zdjęcie

[delphi]pobieranie danych za pomocą Memo


  • Zamknięty Temat jest zamknięty
1 odpowiedź w tym temacie

#1 zyziowarka

zyziowarka

    Nowy

  • 2 postów

Napisano 20 04 2008 - 22:01

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.

  • 0

#2 noroo

noroo

    Nowy

  • 1 postów

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...

  • 0

Zobacz więcej tematów z tagiem: Delphi



Użytkownicy przeglądający ten temat: 1

0 użytkowników, 1 gości, 0 anonimowych