Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Wie bekomme ich den TEXT eines Fensters und nicht nur den TITLE des Fensters. (https://www.delphipraxis.net/195351-wie-bekomme-ich-den-text-eines-fensters-und-nicht-nur-den-title-des-fensters.html)

wschrabi 24. Feb 2018 09:09

AW: Wie bekomme ich den TEXT eines Fensters und nicht nur den TITLE des Fensters.
 
Zitat:

Zitat von hoika (Beitrag 1394507)
Hallo,
vielleicht

type
LPSTR = PChar;

durch

type
LPSTR = PAnsiChar;

ersetzen?

Ja ich denke Du hast damit Recht gehabt, da ja Berlin mit WideChars arbeitet, habe ich EDA mit AnsiChars umgeschrieben.
Jetzt klappt es zumindest auf einem Rechner ohne Crash. auf dem anderen PC muss wohl der PC OS was haben.

DANKE :-D

Nachtrag: Um es Berlin compatibel zu machen habe ich bei den Type folgendes eingefügt:

Delphi-Quellcode:
type
 
  PChar = PansiChar;
  Char = ansiChar;
  MyString = AnsiString; // Subsitute all STRING Type to MyString Type
und die Aufrufe nach winapi habe ich so gecastet:

Delphi-Quellcode:
   
 SetString(Result, pc, wvsprintf(PWIDEchar(pc), PWIDEChar(fmt), PWIDEChar(pdw1)));
bzw
    lstrcpy(PWideChar(miscd^.target_classname), @temps[1]);
bzw
                        lstrlen(PWidechar(pl^.val_if_sz));
bzw
      GetClassname(hwnd, PWideChar(pc), maxbufsize)
bzw
      SetString(result, pc, lstrlen(PWideChar(pc)))

bzw
        lstrcpyn(PWideChar(PPropertyList(lastentry)^.name_of_prop), @temps[1], i);
bzw
    hGlob := GlobalAlloc(GMEM_MOVEABLE, lstrlen(PWideChar(sztext)) + 1);
bzw
      CopyMemory(szCopy, sztext, lstrlen(PWideChar(sztext)));


Jetzt stürtzt es nicht mehr ab und es läuft stabiler, doch leicher wird mir im Assoz.-Fenster immer nur 1 CHARACTER vom assoz. Text ausgegeben.
Wo muss mann da drehen? Ich hab schon alles durchgesucht, doch ich komme auf keinen grünen Zweig.
Ohne meiner Type Substitution kommt der ganze Text aber es stürzt ab.
kann mir da wer helfen?

Hab auch in Screenshoot das eingegeben:

das wie oben erwähnt eingeben:
Delphi-Quellcode:
  LPSTR = PANSIChar;
Doch immer nur 1 CHAR

danke


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz