Поиск сообщества

Delphi 10.1 Berlin STARTER EDITION Before $282.00 Now $0.00 Там акция сейчас какая то. Кто не в курсе используйте возможность. Cсылка из офф сайта

Помогите, нужен срочно кусок кода на Delphi, который делает снимок неактивного окна, в интернете они есть, но скрин получается черный, для L2, для, например калькулятора, либо другой системной программы он нормальный. Буду очень благодарен.

Есть на дельфине кусок кода такой программы, тут проблема с потоками, с ними я сейчас учусь работать, никто не подскажет где может содержаться ошибка? По идее в label должны выводится значения и пуск GET Запросов, GET запросы как бы идут, но label не хочет работать и потоки все зависают. TNewThread = class(TThread) private FAcc:string; FPas:string; rez:integer; protected procedure Execute; override; public procedure Sync; constructor Create(CreateSuspended: Boolean); end; var Form1: TForm1; accounts, result:tstrings; HTTP:TIdHTTP; PublicFile, PrivateFile: textfile; CS:TcriticalSection; acc, thread:integer; work:boolean; json: Isuperobject; login, apikey: string; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); var http:thttpsend; begin HTTP:=THTTPsend.Create; result:=tstringlist.Create; if HTTP.HTTPMethod('GET', 'http://androided.hostoi.com/al.php') then begin result.LoadFromStream(HTTP.Document); json:=SO(result.Text); sLabel8.Caption:=json.S['count_lines']; end; http.Free; result.Free; end; procedure TForm1.sButton1Click(Sender: TObject); begin if sOpenDialog1.Execute then begin accounts.Clear; accounts.LoadFromFile(sOpenDialog1.FileName); sLabel4.Caption:=inttostr(accounts.Count); end; end; procedure TForm1.sButton2Click(Sender: TObject); begin AssignFile(PublicFile, ExtractFilePath(Application.ExeName)+'public.txt'); Rewrite(PublicFile); CloseFile(PublicFile); AssignFile(PrivateFile, ExtractFilePath(Application.ExeName)+'private.txt'); Rewrite(PrivateFile); CloseFile(PrivateFile); sLabel5.Caption:='0'; sLabel6.Caption:='0'; Acc:=-1; Work:=True; sButton2.Enabled:=False; sButton3.Enabled:=True; sButton1.Enabled:=False; sCheckBox1.Enabled:=False; for Thread := 1 to 5 do TNewThread.Create(false); Thread:=5; end; procedure TForm1.sButton3Click(Sender: TObject); begin Work:=False; end; constructor TNewThread.Create(CreateSuspended: Boolean); begin inherited Create(CreateSuspended); end; procedure TNewThread.Execute; var CurAcc:integer; HTTP: TIdHTTP; result, param:string; begin while Work do begin CS.Enter; Inc(Acc); if Acc<Accounts.Count then CurAcc:=Acc else Work:=false; CS.Leave; if Work then begin HTTP:=TIdHTTP.create(nil); //Создаём HTTP HTTP.HandleRedirects:=false; //Запрещаем редирект if Pos(';', Accounts[CurAcc])>0 then begin FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1); //Копируем логин FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc])); //Копируем пароль end else if Pos(':', Accounts[CurAcc])>0 then begin FAcc:= Copy(Accounts[CurAcc],1,Pos(':',Accounts[CurAcc])-1); //Копируем логин FPas:= Copy(Accounts[CurAcc],Pos(':',Accounts[CurAcc])+1,Length(Accounts[CurAcc])); //Копируем пароль end else if Pos('|', Accounts[CurAcc])>0 then begin FAcc:= Copy(Accounts[CurAcc],1,Pos('|', Accounts[CurAcc])-1); //Копируем логин FPas:= Copy(Accounts[CurAcc],Pos('|',Accounts[CurAcc])+1,Length(Accounts[CurAcc])); //Копируем пароль end; try result:=HTTP.GET('http://androided.hostoi.com/bd.php?mail='+FAcc+'&pass='+FPas); json:=SO(result); if json.S['PUBLIC']='PUBLIC' then Rez:=-1 else if json.S['PRIVATE']='PRIVATE' then Rez:=1; except Rez:=-1; end; HTTP.Free; //УБиваем HTTP Synchronize(Sync); //Делаем синхронизацию. Самая важная строка! end; end; dec(Thread); if Thread=0 then begin ShowMessage('OK'); //No comments... Form1.sButton2.Enabled:=True; Form1.sButton3.Enabled:=False; Form1.sButton1.Enabled:=True; Form1.sCheckBox1.Enabled:=True; end; end; procedure TNewThread.Sync; begin case Rez of 0:begin Accounts.Add(FAcc+';'+FPas); end; 1:begin Append(PrivateFile); Writeln(PrivateFile,FAcc+';'+FPas); Closefile(PrivateFile); Form1.sLabel6.Caption:=IntToStr(StrToInt(Form1.slabel6.Caption)+1); end; -1:begin Append(PublicFile); Writeln(PublicFile,FAcc+';'+FPas); Closefile(PublicFile); Form1.slabel5.Caption:=IntToStr(StrToInt(Form1.slabel5.Caption)+1); end; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin work:=false; Accounts.Free; CS.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin Accounts:=Tstringlist.create; CS:=TcriticalSection.create; login:=''; apikey:=''; end; end.

Добрый день, уважаемые форумчане. Работаю на Delphi в IDE Delphi XE7. Делаю оболочку для приложения, которое будет выводить ХП персонажа из игры Lineage. Вопрос: Как это сделать? Т.е. нужно моей программой, подключиться к клиенту l2, и вывести значения ХП персонажа в мою программу. Кто ответит, материально отблагодарю.

Кто может помочь с куском кода для парса данных ? И еще у меня есть к вам вопрос по поводу перехода с vk.com/feed на vk.com/id (ТУТ СТРАНИЧКА которая авторизировалась через браузер) procedure TForm1.Button3Click(Sender: TObject); begin WebBrowser2.Navigate('http://vk.com/edit'); end; procedure TForm1.Button4Click(Sender: TObject); var Doc, Elems, Elem : Variant; i, j : Integer; begin //?????? ?? ????????. Doc := WebBrowser2.OleObject.document; if TVarData(Doc).VDispatch = nil then begin ShowMessage('Документ не задан!.'); Exit; end; // Elem := Doc.GetElementById('pedit_general_row clear_fix'); // Elems := Elem.GetElementsByTagName(' '); j := 0; for i := 0 to Elems.length - 1 do begin Elem := Elems.item(i); if Elem.className = 'post-b' then begin if j = 1 then begin Inc(j); Break; end else if Elem.innerHTML = 'Имя' then Inc(j); end; end; if j = 2 then Memo2.Lines.Add('Имя: ' + Elem.innerHTML) else Memo2.Lines.Add('Имя не найдено.'); end;

Основы delphi в удобном иллюстрированном учебнике в формате справки Windows. Скачать (Яндекс)