Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal


  • Content Count

  • Joined

  • Last visited

Community Reputation

10 Good

About opiumhautopium1

  • Rank
  1. okay checked with begin count:=IdCookieManager1.CookieCollection.count -1;// get them for i:=0 to count do Memo6.Lines.Add(IdCookieManager1.CookieCollection.Cookies[i].CookieText) ; end; logged in... but no import possible some new ideas?
  2. jep but i get the return when i logg in so i see if i logged in or get errorcode ... it is easier for me
  3. no .. no downloading and no upload it is only a copy inside uploaded from one account to a second acc ... no trafic first i logg in with try sList:=TStringList.Create; http.AllowCookies:=True; sList.Add('id=xxx'); sList.Add('pw=xxx'); Memo6.Text:=Http.Post('http://uploaded.net/io/login',sList); finally sList.Free; end; then check with regex if login is okay after that things like move files to a folder (all with post) rename ...work in delph i have no get_curl function....
  4. uploaded is a filehoster and i have a premim acc i dont want to download a file ... i want to import/Mirror a file from uploaded acc 1 to uploaded acc no 2 .... there are no captures or wait times... on the webside i mirror up to 200 files per minute no problem and a lot of functions (translate from the php to delphi )like the logg in,cookies .... rename files (in uploaded acc) move files.... work pretty good (all with post) example //change filename try sList:=TStringList.Create; sList.Add('value=' + NewFileName); sList.Add('&editorId='); Memo6.Text:=Http.Post('http://uploaded.net/io/me/files/' +FileID +'/set/title',sList ); finally sList.Free; end; work but not the import.....
  5. like this? sList.Add('http://uploaded.net/file/h4nhiaux?urls='); i tryed.... dont work :-(
  6. hi Freddy i try my best with xe3 i learned a lot of regualar expressions in the last 2 month that 's ok at the moment this part is my problem $json = $this->get_curl('http://uploaded.net/io/import', "urls=".$url); it should add the file to my account..... but if i try it with delphi sList:=TStringList.Create; sList.Add('urls=http://uploaded.net/file/h4nhiaux'); Memo6.Text:=Http.Post('http://uploaded.net/io/import',sList ); no file is added ... and i dont know why
  7. hello guys i need your help i have a php script and i need some of the functions in delphi functions like login... rename, move, fileinfo...... are okay and work in delphi now i want to "translate" this /** * Importiert eine oder mehrere URLs * * @param string|array $url * * @return array */ public function add_import($url) { $url = urlencode(implode("\n", (array)$url)); $return = array(); $json = $this->get_curl('http://uploaded.net/io/import', "urls=".$url); $json = preg_split('#}([,])#', $json, 0, PREG_SPLIT_NO_EMPTY); foreach($json as $j) { $return[] = json_decode(preg_replace('/([{,])(\s*)([^"]+?)\s*','$1"$3":',$j.'}')); } return $return; protected function get_curl($url, $post = null, $cookie = true, $header = false, $opt = null, $info = false) { $ch = curl_init(); curl_setopt($ch, CURLOPT_URL, $url); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); curl_setopt($ch, CURLOPT_HTTPHEADER, array('Referer: http://uploaded.net/upload')); if($post !== null) { curl_setopt($ch, CURLOPT_POST, true); curl_setopt($ch, CURLOPT_POSTFIELDS, $post); } if($cookie) curl_setopt($ch, CURLOPT_COOKIE, $this->cookie_str); if($header) curl_setopt($ch, CURLOPT_HEADER, true); if($opt !== null) { curl_setopt_array($ch, $opt); } $res = curl_exec($ch); if($info === true) { $r['res'] = $res; $r['info'] = curl_getinfo($ch); $res = $r; } curl_close($ch); return $res; } if u need more code https://github.com/patschi/uploaded.net-direct-premium-downloader/blob/master/inc/Uploaded.php but how to do that in delphi ? i try try sList:=TStringList.Create; sList.Add('urls=http://uploaded.net/file/h4nhiaux'); Memo6.Text:=Http.Post('http://uploaded.net/io/import',sList ); finally sList.Free; end; but don't work.... hope somebody can help me :-) thx
  8. we can talk german in facebook i can give u some basics :-) if u want --> pm greetings
  9. done Begin Memo1.Clear; if PageControl1.ActivePageIndex <= 0 then begin htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml; end else with PageControl1.ActivePage do begin with PageControl1.ActivePage.Controls[0] as TWebbrowser do htmlcode:= OleObject.Document.Body.InnerHtml; end;
  10. Hi guys . I need a little help in a Delphi (Xe3) script ..... I hope u can help It is a small Web browser to extract Links from a webside The "TwebBroser" work in TabSheeds ..... I store The TabSheet in a String and extract the url from String ( not a second webrequest because captcha)); My Problem is The Code store the first TabSheet to the string but i need to store the ACTIVE TabSheet unit WebBrowser;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw,MsHtml, Vcl.ComCtrls, Vcl.Menus,Seit2Browser,ActiveX, COMObj, IdHTTP, idURI,StrUtils,RegularExpressions;type TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Edit1: TEdit; MainMenu1: TMainMenu; Einstelungen1: TMenuItem; Button7: TButton; PageControl1: TPageControl; TabSheet1: TTabSheet; WebBrowser1: TWebBrowser; TabSheet2: TTabSheet; WebBrowser2: TWebBrowser; TabSheet5: TTabSheet; Memo3: TMemo; procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure TabSheet1Rename(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); //procedure ReturnDrucken(Sender: TObject; var Key: Char); procedure webbrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); procedure TabSheet2Rename(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); procedure Einstelungen1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button7Click(Sender: TObject); procedure WenStartTest(Sender: TObject); procedure Webbrowser1CommandStateChange(ASender: TObject; Command: Integer; Enable: WordBool); procedure Webbrowser1documentcomplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); private { Private-Deklarationen } public { Public-Deklarationen } end;var Form2: TForm2; Auslese: String; Adposi,BPosi: Integer ; PosSpeicher: Array of integer; SUrl: Array of String;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);Begin try WebBrowser1.GoBack; except Button1.Enabled:= False; end;end;procedure TForm2.Button2Click(Sender: TObject);beginWebBrowser1.GoForward;end;procedure TForm2.Button3Click(Sender: TObject);beginWebBrowser1.Navigate(Startseite);end;procedure TForm2.Button4Click(Sender: TObject);beginWebBrowser1.Refresh2;end;procedure TForm2.Button6Click(Sender: TObject);beginButton1.Enabled:= True;WebBrowser1.Navigate(Edit1.text);end;procedure TForm2.Button7Click(Sender: TObject);var UPloadedRegEx,refLinkFilter,htmlcode: String; Uploadedmatches: TMatchCollection; UPloadedmatch: TMatch; Begin ////////////////// Here it Store The String ( FIRST TAB) //////// htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml;//////////// But need The ACTIVE Tab////////////////////////////////////// UPloadedRegEx:= ('(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&~\+#]*[\w\-\@?^=%&/~\+#])?'); Uploadedmatches := TRegEx.Matches(htmlcode,UPloadedRegEx); if UPloadedmatches.Count > 0 then begin for UPloadedmatch in UPloadedmatches do begin refLinkFilter:=uploadedMatch.Value; if not TRegEx.IsMatch(refLinkFilter, '/ref/') then Memo3.Lines.Add(refLinkFilter) ; end; TabSheet5.TabVisible:= True; end; end;procedure TForm2.Einstelungen1Click(Sender: TObject);beginForm3.Show;end;procedure TForm2.FormCreate(Sender: TObject);Begintry AssignFile(f,'Startseite.txt'); Reset(f); ReadLn(f,Startseite);finally Closefile(f);end;end;procedure TForm2.Webbrowser1CommandStateChange(ASender: TObject; Command: Integer; Enable: WordBool);begincase Command of CSC_NAVIGATEBACK: Button1.Enabled := Enable; CSC_NAVIGATEFORWARD: Button2.Enabled := Enable; end;end;procedure TForm2.Webbrowser1documentcomplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);var CurWebrowser : IWebBrowser; TopWebBrowser: IWebBrowser; Document : OLEvariant; WindowName : string;begin { TForm1.WebBrowser1DocumentComplete } CurWebrowser := pDisp as IWebBrowser; TopWebBrowser := (ASender as TWebBrowser).DefaultInterface; if CurWebrowser=TopWebBrowser then begin //ShowMessage('Document is complete.') end else begin Document := CurWebrowser.Document; WindowName := Document.ParentWindow.Name; //ShowMessage('Frame ' + WindowName + ' is loaded.') end;end;procedure TForm2.webbrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);var TabSheet: TTabSheet; Web: TWebbrowser;begin TabSheet := TTabSheet.Create(Form2.pagecontrol1); with TabSheet do begin PageControl := Form2.pagecontrol1; end; Web := TWebbrowser.CreateParented(TabSheet.Handle); TabSheet.InsertControl(Web); TWinControl(Web).align := alClient; ppDisp := Web.DefaultDispatch;// PageControl1.activepage.pageindex := PageControl1.PageCount- 1; Web.OnNewWindow2 := webbrowser1NewWindow2; Web.OnCommandStateChange := Webbrowser1CommandStateChange; web.OnDocumentComplete := Webbrowser1documentcomplete; //Web.OnNavigateComplete2 := Webbrowser1NavigateComplete2; //Web.OnProgressChange := Webbrowser1ProgressChange; //Web.OnstatusTextChange := Webbrowser1StatusTextChange; Pagecontrol1.Pages[pagecontrol1.PageCount - 1].caption := 'Lade...';end;procedure TForm2.TabSheet1Rename(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);beginEdit1.Text:= WebBrowser1.LocationURL;TabSheet1.Caption:= Edit1.Text;end;procedure TForm2.TabSheet2Rename(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);beginTabSheet2.Caption:= WebBrowser2.LocationName;end;procedure TForm2.WenStartTest(Sender: TObject);beginMemo3.Clear;TabSheet1.Show ;WebBrowser1.Navigate('www.google.de');end;end.
  11. Hello again today i try to open a web page so i use this code to do that program New; {$L ShellUtils.dll} Var a,b: AnsiString; begin a:=(ExtractFilePath('C:\Program Files (x86)\Mozilla Firefox\firefox.exe')); b:=(ExtractFilePath('C:\Users\lalellu \AppData\Local\Google\Chrome\Application\chrome.exe')); RunEx(a + 'firefox.exe','http://www.mygully.com'); RunEx(b + 'chrome.exe','http://www.mygully.com'); end. it works it open the web page no problem ....but the flash player say good bye honey i go to make some hollyday..... the same with chrome ....... ( when i copy and paste it to the commandline no problen ) ... is there a way out ? greetings
  12. hahaaa omg ... i am so (censored) .. found .. okay i will play a little ........ thank you
  13. no where i can find this tool? for a link I would be very grateful :-)
  14. Hello is there a good tutorial to create forms? I have to learn something about because i have to create info boxes with butons ... hold it on top and dont block the scar program window may be ther is a youtoube video or a tutorial at this board that i haven t seen?! thx in advance. have a sunny dayyyyyyyyy
  15. script can grab the information from other sides and u can post it to your preferred side. with a couple of clicks. Script create a txt file (and clipboard) to post at wares boards ... like dvd or bluray boards... see 1)grab title 2)grab Pictrue 3)grab Description 4)grab needed Information 5)add a passwort spoiler 6)add a Downloadlink with this script and a linkgrabber script (to import download files at my account) i create my own offer less than 2 Minutes from a side like DDL-Warez.in to my prefered board it is a very simple script and something new. I do not know if anyone needs this script but but I want to give something back to the people/community feel free to modify angebot.scar
  • Create New...