Autor Beitrag
0x33
Hält's aus hier
Beiträge: 13



BeitragVerfasst: Di 24.03.09 10:02 
hi, also mein programm macht einen screenshot, diesen soll er bei z.B. 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 91

XP, Ubuntu
Delphi 7 SE, Delphi 2007
BeitragVerfasst: 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 Threadstarter
Hält's aus hier
Beiträge: 13



BeitragVerfasst: Di 24.03.09 14:21 
hm.. also per webbrowser müsste das doch eig. dann so funzen:

ausblenden 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:

ausblenden 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
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 1592
Erhaltene Danke: 79

W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
BeitragVerfasst: Do 02.04.09 15:55 
Und, hast du einen Weg gefunden, würde mich auch mal für den Code interessieren.

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
ZelltoD
Hält's aus hier
Beiträge: 3



BeitragVerfasst: 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