im Webbrowser Feld vom Typ File ausfüllen

[superD]

Hallo alle zusammen!

Ich habe eine Frage, die ich trotz intensiver Suche noch nirgendwo komplett und für mich verständlich beantwortet gefunden habe.

Ich habe eine TWebBrowser-Komponente, mit der ich eine Webseite aufrufe.
Nun möchte ich gerne eine Feld mit einem Wert vorbelegen.
Dieses Feld ist laut dem PHP-Code vom Typ "file"

Code:

<input type="file" name="datei"> 
<input type="submit" value="hochladen">

Nun wollte ich gerne wissen, wie man diese Zuweisung realisieren kann.

Vielen Dank im Voraus.


Mit freundlichen Grüßen

D.

[lbccaleb]

meinst du sowas hier in der art??

auf ebay einloggen

mfg

[superD]

Da übergebe ich ja nichts in ein Feld vom Typ "file", sondern nur in reine Textfelder.

[API]

Zitat von superD:

Da übergebe ich ja nichts in ein Feld vom Typ "file", sondern nur in reine Textfelder.

Direkt lässt sich einem File Feld nichts zuweisen.
Doch über ein wenig "unschöne" Umwege geht es trotzdem:

Delphi-Quellcode:

  Clipboard.SetTextBuf(PChar('c:\meinfile.txt'));
  Sleep(100);
  Webbrowser1.OleObject.Document.All.Item('FILEFELD').Focus;
  Sleep(100);
  Webbrowser1.ExecWB(OLECMDID_PASTE, 0);

oder

Delphi-Quellcode:

  
  Webbrowser1.OleObject.Document.All.Item('FILEFELD').Focus;
  Sleep(100);
  Sendkeys('c:\meinfile.txt')

[Luckie]

Und warum kann man da nichts ganz normal was reinschreiben, wie in jedes normale Textfeld auch?

[marabu]

Hallo Michael,

wenn das möglich wäre, dann könnte dir jeder Schlingel per JS beliebige Dateien von deiner Festplatte entführen.

Freundliche Grüße

[superD]

Danke, das funktioniert prima!

[horst]

oder so:

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, 'name')) then
      begin
        FormItem := InputElement;
        FormItem.Focus;
        SendKeys(PCh, False); // NOTE the false flag
      end;
    end;
  end;
end;

du brauchst auch dazu die SNDKEY32.PAS... ist auf der delphi cd in X:\INFO\EXTRAS\SENDKEYS
quelle:
http://groups.yahoo.com/group/delphi...r/message/6832

gruss horst

[Mini-Programmierer]

Hallo

es wäre gut, wenn man drauf antwortet ob es geklappt oder nicht

allerdings möchte ich auch die Idee ausprobieren
der Code :

Delphi-Quellcode:

Clipboard.SetTextBuf(PChar('c:\meinfile.txt')); 
  Sleep(100); 
  Webbrowser1.OleObject.Document.All.Item('pfad').Focus; 
  Sleep(100); 
  Webbrowser1.ExecWB(OLECMDID_PASTE, 0);

funktioniert leider nicht oder ?
Debugger zeigt auf diese Zeile !
>> Webbrowser1.OleObject.Document.All.Item('pfad').Fo cus;

Sonst würde ich diese Unit SNDKEY32.PAS downloaden um die 2. variante zu testen :
http://www.programmersheaven.com/dow.../download.aspx

mfg

[DeddyH]

Die sndkey32.pas musst Du nicht runterladen, die sollte sich auf der Delphi-CD finden lassen