request guidance for use adb command in my progrom

[hoseyni-]

hi

i need help for execute and get output adb command in delphi or c++
For example :
i want run one command from fastboot command's in my progrom and get The result in my program .

i will be grateful if someone help me ...

[hoseyni-]

plz help meeeee ... !!!!!!!!!

[McManiek]

Easyiest answer for your question is using pipes.
Look on : Capture Console Output Realtime To Memo - Delphi Programming

[dzunlocker]

Learn how to use adbwinapi.dll with your project. There are alot of good code samples on the net just google it !

[hoseyni-]

Originally Posted by McManiek

Easyiest answer for your question is using pipes.
Look on : Capture Console Output Realtime To Memo - Delphi Programming

I used this code before, but it did not work. Did you make use of it ؟؟؟!!!!!!

[hoseyni-]

Originally Posted by dzunlocker

Learn how to use adbwinapi.dll with your project. There are alot of good code samples on the net just google it !

thnx for your help ,but im serearch ed .. and im not find good guide or help for it ... :-? can you help ??

[jodge]

really, mate?
After search, first page:

c#
[HOW TO] Make your own Android Toolkit for Windows in C# - Make it to your liking! - xda-developers

java:
android - Adding ADB to my Java PC application - Stack Overflow

c++
https://android.googlesource.com/pla...indows/usb/api

[xcachorrox]

@hoseyni- here a small example how run cmd with ADB,this code is partly a small project.

function IsWinNT: boolean;
var
  OSV: OSVERSIONINFO;
begin
  OSV.dwOSVersionInfoSize := sizeof(osv);
  GetVersionEx(OSV);
  result := OSV.dwPlatformId = VER_PLATFORM_WIN32_NT;
end;

function cmdxcx(Cmd: string): string;
var
  Buffer: array[0..4096] of Char;
  si: STARTUPINFO;
  sa: SECURITY_ATTRIBUTES;
  sd: SECURITY_DESCRIPTOR;
  pi: PROCESS_INFORMATION;
  newstdin, newstdout, read_stdout, write_stdin: THandle;
  exitcod, bread, avail: Cardinal;
  Str: string;
begin
  Result:= '';
  if IsWinNT then
  begin
    InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(@sd, true, nil, false);
    sa.lpSecurityDescriptor := @sd;
  end
  else sa.lpSecurityDescriptor := nil;
  sa.nLength := sizeof(SECURITY_ATTRIBUTES);
  sa.bInheritHandle := TRUE;
  if CreatePipe(newstdin, write_stdin, @sa, 0) then
  begin
    if CreatePipe(read_stdout, newstdout, @sa, 0) then
    begin
      GetStartupInfo(si);
      with si do
      begin
        dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
        wShowWindow := SW_HIDE;
        hStdOutput := newstdout;
        hStdError := newstdout;
        hStdInput := newstdin;
      end;
      Fillchar(Buffer, SizeOf(Buffer), 0);
      GetEnvironmentVariable('COMSPEC', @Buffer, SizeOf(Buffer) - 1);
      StrCat(@Buffer,PChar(' /c ' + Cmd));
      if CreateProcess(nil, @Buffer, nil, nil, TRUE, CREATE_NEW_CONSOLE, nil, nil, si, pi) then
      begin
        Str:= #13;
        WriteFile(write_stdin,PChar(Str)^,Length(Str),bread,nil);
        repeat
          PeekNamedPipe(read_stdout, @Buffer, SizeOf(Buffer) - 1, @bread, @avail, nil);
          if bread > 0 then
          begin
            Fillchar(Buffer, SizeOf(Buffer), 0);
            ReadFile(read_stdout, Buffer, bread, bread, nil);
            Result:= Result + String(PChar(@Buffer));
          end;
          GetExitCodeProcess(pi.hProcess, exitcod);
        until (exitcod <> STILL_ACTIVE) and (bread = 0);
      end;
      CloseHandle(read_stdout);
      CloseHandle(newstdout);
    end;
    CloseHandle(newstdin);
    CloseHandle(write_stdin);
  end;
end;

adb files need put in C:\WINDOWS or in same file folder

pic test
https://imagizer.imageshack.us/v2/97...0/713/h4tr.jpg

Thxz!/regards
Pablo

[hoseyni-]

Originally Posted by XcachorroX®

@hoseyni- here a small example how run cmd with ADB,this code is partly a small project.

function IsWinNT: boolean;
var
  OSV: OSVERSIONINFO;
begin
  OSV.dwOSVersionInfoSize := sizeof(osv);
  GetVersionEx(OSV);
  result := OSV.dwPlatformId = VER_PLATFORM_WIN32_NT;
end;

function cmdxcx(Cmd: string): string;
var
  Buffer: array[0..4096] of Char;
  si: STARTUPINFO;
  sa: SECURITY_ATTRIBUTES;
  sd: SECURITY_DESCRIPTOR;
  pi: PROCESS_INFORMATION;
  newstdin, newstdout, read_stdout, write_stdin: THandle;
  exitcod, bread, avail: Cardinal;
  Str: string;
begin
  Result:= '';
  if IsWinNT then
  begin
    InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(@sd, true, nil, false);
    sa.lpSecurityDescriptor := @sd;
  end
  else sa.lpSecurityDescriptor := nil;
  sa.nLength := sizeof(SECURITY_ATTRIBUTES);
  sa.bInheritHandle := TRUE;
  if CreatePipe(newstdin, write_stdin, @sa, 0) then
  begin
    if CreatePipe(read_stdout, newstdout, @sa, 0) then
    begin
      GetStartupInfo(si);
      with si do
      begin
        dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
        wShowWindow := SW_HIDE;
        hStdOutput := newstdout;
        hStdError := newstdout;
        hStdInput := newstdin;
      end;
      Fillchar(Buffer, SizeOf(Buffer), 0);
      GetEnvironmentVariable('COMSPEC', @Buffer, SizeOf(Buffer) - 1);
      StrCat(@Buffer,PChar(' /c ' + Cmd));
      if CreateProcess(nil, @Buffer, nil, nil, TRUE, CREATE_NEW_CONSOLE, nil, nil, si, pi) then
      begin
        Str:= #13;
        WriteFile(write_stdin,PChar(Str)^,Length(Str),bread,nil);
        repeat
          PeekNamedPipe(read_stdout, @Buffer, SizeOf(Buffer) - 1, @bread, @avail, nil);
          if bread > 0 then
          begin
            Fillchar(Buffer, SizeOf(Buffer), 0);
            ReadFile(read_stdout, Buffer, bread, bread, nil);
            Result:= Result + String(PChar(@Buffer));
          end;
          GetExitCodeProcess(pi.hProcess, exitcod);
        until (exitcod <> STILL_ACTIVE) and (bread = 0);
      end;
      CloseHandle(read_stdout);
      CloseHandle(newstdout);
    end;
    CloseHandle(newstdin);
    CloseHandle(write_stdin);
  end;
end;

adb files need put in C:\WINDOWS or in same file folder

pic test
https://imagizer.imageshack.us/v2/97...0/713/h4tr.jpg

Thxz!/regards
Pablo

thnx dear - XcachorroX ** can you upload your example source project ??

[xcachorrox]

Originally Posted by hoseyni-

thnx dear - XcachorroX ** can you upload your example source project ??

yes friend,why not.
src+example

DOWNLOAD

[doctorsu]

it works for me good but thare is a proplem

it gives achineise characters insteed of english way

i send this Memo1.Lines.Add(Cmdxcx('adb devices'));

i got

楌瑳漠⁦敤楶散⁳瑡慴档摥ഠ搊㘷搵攳ऴ敤楶散਍਍

[doctorsu]

Hello.

Any body have idea

[Nishith]

Originally Posted by doctorsu

it works for me good but thare is a proplem

it gives achineise characters insteed of english way

i send this Memo1.Lines.Add(Cmdxcx('adb devices'));

i got

楌瑳漠⁦敤楶散⁳瑡慴档摥ഠ搊㘷搵攳ऴ敤楶散਍਍

Originally Posted by doctorsu

Hello.

Any body have idea

Check your PC's Regional settings and adb.exe file.