Hente indhold af tekstfelt fra andet delphi program

det program med det edit felt, er det noget du kan sende, så kan jeg hurtigt fixe koden for dig.?

programmet som der skal læses fra, kan som sagt ikke redigeres. Det er en del at et støre program. Så jeg ved ikke helt hvordan.

det er bare fordi det ville være rart at vide det edit fel hedder

det tror jeg ikke man kan finde ud af.. hmm

den for den sags skyld også godt køre alle elementer igennem og tage indholdet af dem. Sådan at man også får alt det andet med.

okay.. det jeg mente med det sidste var, at det er lige meget hvor meget af det andet der kommer med. Indhold af diverse andre felter osv.

dette er hvad jeg umidlbart kan finde ud af om det felt:
Class: TMemo      hWnd: 1050556

hvis det hjælper noget...

dette finder den første edit:

procedure TForm1.Button1Click(Sender: TObject);
var
  mainhandle, subhandle: thandle;
  buf: array[0..256] of char;
begin
  mainhandle := findwindow(nil, 'Test Form');

  if mainhandle = 0 then
  begin
    showmessage('no window');
    exit;
  end;

  subhandle := FindWindowEx(mainhandle, 0, 'TEdit', nil);
  Getwindowtext(subhandle, buf, sizeof(buf) - 1);

  edit1.Text := strpas(buf);
end;


Det du skal er så at kende navnet på det edit felt du ønsker, medmindre den er når 1 fundet

Jeg har fundet ud af det.

ved hjælp af følgende kode:

Function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
showmessage(result);
end;

function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
  ie := FindWindow(pchar('IEFrame'),nil);
  worker := FindWindowEx(ie,0,'WorkerA',nil);
  toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
  comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);
  combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
  edit := FindWindowEx(combo,0,'Edit',nil);
  toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32', nil);

  result := GetText(edit);

Det er vist samme princip.

skal dog siges at den sidste funktion ikke skal bruges.


du får nogle points som tak for hjælpen.

Mange tak!

dkn >> Jeg var vist lidt for hurtig med løsningen. Den løsning jeg brugte SKAL man kende hWnd, som fx. 1050556. Men jeg var ikke klar over, at den skiftede hver gang man startede progrmamet på ny.

Jeg har desværre heller ikke haft held med din metode.

jeg kan fint finde vinduet med FindWindow(nil, 'navn')  .. men at hente værdien fra et felt/memo fra et andet program, kan jeg simpelthen ikke få til at virke.

Har du nogen ide til hvad der i vejen? hvordan det kan løses? eller noget :)

Det her tager teksten fra den første edit:


procedure TForm1.Button1Click(Sender: TObject);
var
  txtLength: integer;
  buffer: string;
  mainhandle, subhandle: thandle;
begin
{Ok jeg har lavet en edit i et andet program. Editen hedder "Edit1"
Formen den er på har caption "Testform"}

  mainhandle := findwindow(nil, 'Testform');

  if mainhandle = 0 then
  begin
    showmessage('no window');
    exit;
  end;

  subhandle := FindWindowEx(mainhandle, 0, 'TEdit', nil);
  TxtLength := SendMessage(subhandle, WM_GETTEXTLENGTH, 0, 0);
  txtlength := txtlength + 1;
  setlength(buffer, txtlength);
  sendmessage(subhandle, wm_gettext, txtlength, longint(@buffer[1]));

  edit1.Text := buffer;
end;

dkn >> Takker. Jeg laved en test med mine egne programmer, og det virkede.  (TMemo og TEdit)

Men det program jeg rippe hente det fra virker ikke :-/ Det er der ikke noget at gøre ved så.

ok men hvis du kunne komme til at sende den exe fil til mig så skulle det altså være muligt

dkn >> Jeg er meget glad for, at du prøver at hjælpe.

Ved ikke om du er ligeglad, men du skal nok få  en del points mere hvis det kommer til at virke.

Programmet er et lille spil på 5 mb (freeware). Så hvis du gider kan du downloade det fra:

http://home.t-online.de/home/Heiko2323/soldat105b.rar

hvis du prøver det, så er det dedicated du skal gå ind i, og trykke start. Så kommer der et lille vindue med noget tekst i midten

hvis den side går langsom, så prøv..
http://soldat.cyberion.pl/download.htm

har skam hentet det. Hvad er det så for een du skal læse fra?

Det er feltet i midten. Et stort felt. Det bliver opdateret stort set hele tiden.

Det er efter "dedicated" er startet. Ved ikke om du er kommet så langt.

nåe den, vil lige se på det så...

tusind tak.

procedure TForm1.Button1Click(Sender: TObject);
var
  txtLength: integer;
  buffer: string;
  mainhandle, subhandle, sub2: thandle;
begin
  mainhandle := findwindow(nil, 'Soldat');
  sub2 := FindWindowEx(mainhandle, 0, 'TFlatPanel', nil);
  subhandle := FindWindowEx(sub2, 0, 'TMemo', nil);
  TxtLength := SendMessage(subhandle, WM_GETTEXTLENGTH, 0, 0);
  txtlength := txtlength + 1;
  setlength(buffer, txtlength);
  sendmessage(subhandle, wm_gettext, txtlength, longint(@buffer[1]));

  memo1.Text := buffer;
end;

LÆKKERT...

det virker 100%! du skal have mange tak.


lidt points her:
http://www.eksperten.dk/spm/275475