Formular ausfüllen für upload

[Logic]

Hallo,

ich habe hier ne kleine Seite mit einem upload-script.

Ich würde gerne automatisiert die Form von einem Delphi Programm ausfüllen lassen (inkl.) Uploadpfad und dann absenden.

Ich hab' z.b. Indy installiert, nur komm ich damit nicht so klar.

Wäre nett wenn ihr mir weiterhelfen könnten

mfg
Th

[Luckie]

Wie man Formulare im Browser ausfüllt haben wir hier schon oft genug besprochen. Benutz bitte die Suche.

[Logic]

Funktioniert das dann auch für so nen Upload formular, weil er muss ja immerhin ne Datei ins web hochladen...

[Luckie]

Ob du in das Eingabefeld nun eine Datei einträgst oder sie von Hand mit der Schaltfläche und dem Dialog auswählst ist doch egal. Hauptsache in dem Eingabefeld steht der gültiger Pfad drinne.

[Logic]

Also ich habs mit folgendem Code probiert, aber er läd einfach nix hoch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  SL: TStringList; 
begin 
  SL := TStringList.Create; 
  try 
    SL.Add('userfile=C:\Dokumente und Einstellungen\Thorsten\Desktop\index.php'); 
    IdHTTP1.Post('http://www.logic-online.biz/etc/testup/index.php', SL); 
  finally 
    SL.Free; 
  end; 
end;

gefunden hier

[Bernhard Geyer]

Zitat von Luckie:

Ob du in das Eingabefeld nun eine Datei einträgst oder sie von Hand mit der Schaltfläche und dem Dialog auswählst ist doch egal. Hauptsache in dem Eingabefeld steht der gültiger Pfad drinne.

Es ist es nicht möglich ein HTML-Upload-Editfeld per Programmcode zu füllen (außgenommen senden von Tastaturanschlägen per SendKey). Dies wurde vor einigen Jahren geändert da dies eine Sicherheitslücke und jede "Nicht-Saubere" Webseite diverse halbwegs bekannte Datei einfach beim Navigieren auf ihrer Homepage hochladen könnte.

[3_of_8]

Aber ein Upload-Feld funktioniert nichtsdestotrotz mit POST, daher dürfte es doch eigentlich gehen...

[Logic]

Nunja bei mir geht es nicht, ich geh davon aus dass ich irgendwie nen internen browser machen muss oder so, aber ich hab davon ehrlich gesagt nicht viel Ahnung

[Dash]

Vielleicht ist das etwas für dich?
http://www.iceplanet-online.de/delphi/projekte.htm

Etwas runterscrollen bis zu HTTP Up-/Download

[capo]

hab da was gefunden

Delphi-Quellcode:

procedure TForm1.SetFilename(Value: WideString);

var

  Doc: IHTMLDocument2;

  Elements: IHTMLElementCollection;

  Element: IHTMLElement;

  InputElement: IHTMLInputElement;

  I, j: Integer;

  FormItem: Variant;

  pch: PChar;

  str1: string;

begin

  str1 := Value; //convert input value to string

  pch := PChar(str1); //type cast to pointer



  Doc := WebBrowser1.Document as IHTMLDocument2;

  Elements := Doc.all;

  for I := 0 to Elements.length - 1 do

  begin

    Element := Elements.item(I, EmptyParam) as IHtmlElement;

    if Element.tagName = 'INPUT' then

    begin

      InputElement := Element as IHTMLInputElement;

      if (SameText(InputElement.type_, 'file')) and

        (SameText(InputElement.Name, 'RemoteName')) then

      begin

        FormItem := InputElement;

        FormItem.Focus;

        SendKeys(PCh, False); // NOTE the false flag

      end;

    end;

  end;

end;

quelle:
http://groups.yahoo.com/group/delphi...r/message/6832

gruss, capo