Entwickler-Ecke

Internet / Netzwerk - Delphi (post/get)


0x33 - Di 24.03.09 10:02
Titel: Delphi (post/get)
hi, also mein programm macht einen screenshot, diesen soll er bei z.B. http://www.imagebanana.com/
uppen und mir den downloadlink in nem edit ausgeben

wie kann ich sowas realisieren? danke :)

ich muss ja irgendwie erst die felder ausfüllen, auf upload klicken lassen und dann die antwort bekommen und nach nem bestimmten string durchsuchen oO


Moderiert von user profile iconNarses: Topic aus Sonstiges (Delphi) verschoben am Di 24.03.2009 um 10:23


Bob Murphy - Di 24.03.09 12:21

Also du könntest sowas über die WebBrowser Komponente machen, allerdings würde ich persönlich sowas lieber mit den Indys machen.
Da dürften dann IdHTTP, IdMultiPartFormData bzw. IdMultiPartFormDataStream schonmal 2 gute Stichworte für dich sein.


0x33 - Di 24.03.09 14:21

hm.. also per webbrowser müsste das doch eig. dann so funzen:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
webbrowser1.Navigate('http://imagebanana.com');
Clipboard.SetTextBuf(PChar('c:\meinfile.jpg'));
  Sleep(100);
  Webbrowser1.OleObject.Document.All.Item('contentuploadbox').Focus;       //feld ID
  Sleep(100);
  Webbrowser1.ExecWB(OLECMDID_PASTE, 0);


aber so will das nicht wirklich ;D

wie muss das richtig aussehen bzw. hat wer en beispiel für idhttp? (wär ja glaube ich mal die bessere variante)

---Moderiert von user profile iconNarses: Beiträge zusammengefasst---

sry für pushen aber is wichtig.. hier hab ich nochwas probiert:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
procedure TForm1.Button1Click(Sender: TObject);
var
 Stream : TIdMultipartFormDataStream;
begin
 Stream := TIdMultipartFormDataStream.Create;
 try
   Stream.AddFile( 'img''scr.jpg''image/jpeg' );
   IdHTTP1.Post( 'http://www.imagebanana.com', Stream );
   //Memo1.Text := Idhttp1.Get(); <-prob
 finally
   Stream.Free;

 end;


das müsste doch auch irgendwie funzen, ich denk mal ich bin nicht so weit davon entfernt, allerdings bekomm ich kein response und ich will ja den pic link dann ausgeben....

Moderiert von user profile iconNarses: Code- durch Delphi-Tags ersetzt


Dude566 - Do 02.04.09 15:55

Und, hast du einen Weg gefunden, würde mich auch mal für den Code interessieren.


ZelltoD - Do 07.05.09 23:45

Würde mich auch interessieren, arbeite nähmlich schon länger an dieser Sache.
Vielleicht kann ja auch jemand anderes Weiterhelfen.

Wär echt sehr dankbar.

gruß Sebastian