Anfängerfrage: InternalGetWindowText verwenden

[flotschie]

hallo,

also ich bin zwar kein delphi programmierer aber ich ich glaube meine frage kann ich auch hier stellen:

es gibt in der windows API die Funktion

Code:

int InternalGetWindowText(HWND hWnd,
    LPWSTR lpString,
    int nMaxCount
);

die einen Text liefern soll (von mir auch kann man hier auch GetWindowText verwenden :-))

Anfängerfrage: Wie man sehen kann liefert diese Funktion einen integer wert zurück und keinen string! Das versteh ich nicht ganz....

Wenn ich ein Code-Beispiel für vb verwende, nämlich

Code:

Dim textlen As Long  ' receives length of text of the window
Dim wintext As String  ' receives the text of the window
Dim slength As Long  ' receives the length of the returned string

' Find out how many characters are in the window's text.
' Add 1 to compensate for the terminating null.
textlen = GetWindowTextLength(Form1.hWnd) + 1
' Make sufficient room in the buffer.
wintext = Space(textlen)
' Retrieve the text of window Form1.
slength = GetWindowText(Form1.hWnd, wintext, textlen)
' Remove the empty space from the string, if any.
wintext = Left(wintext, slength)
' Display the result.
Debug.Print "The title bar of window Form1 is: "; wintext

funktionierts bei mir nicht weil ich VB.NET programmiere und es da keine Left Anweisung mehr gibt - aber an dem solls nicht scheitern. Überhaupt liefert mir ja fast jede API funktion einen integer oder long wert zurück, auch wenn man strings haben will. Wie bekomme ich denn nun meinen string?

[NicoDE]

Wie ein dem von Dir gezeigten VB-Beispiel zu sehen sit, wird erst ermittelt wie lang der Text ist (GetWindowTextLength) und ein String mit entsprechender Länge angelegt. Dieser String wird GetWindowText übergeben, damit die Funktion ihn füllt. Der Rückgabewert gibt dann an, wieviele Zeichen in den String (der ja als Ausgabepuffer benutzt wurde) geschrieben wurden.

[flotschie]

danke für die schnelle antwort, aber ich glaub schon langsam das ich zu doof bin das zu verstehen...

wie komme ich dann schlussendlich dorthin dass ich schreiben kann

Code:

dim mystring as string
mystring = <string>

??

[flotschie]

aber moment...schon langsam verstehe ich es ....

also, den string im beispiel fülle ich ja zuerst mal mit Leerzeichen, die so lang sind wie der text...und dann wird dieser leere string als parameter einer funktion übergeben....und ist dann ab dieser übergabe mit dem eigetnlichen text befüllt? Dann hat die zuweisung dieser funktion zu der variablen slength nur den zweck (ausser nacher dem abschneiden), das der übergabeparameter wintext befüllt wird...?! *ganzseltsamvorkomm* :?:

[flotschie]

heisst das dann...das diese funktionen eigetnlich keine funktionen sind, so wie ich sie kenne.....sondern dass diese funktionen die übergabeparameter bearbeiten? normalerweise kenn ich ja funktionen in dem sinn:

Code:

function wert_ausrechnen(byval wert1 as int, byval wert2 as int)

Wert_ausrechnen = wert1*wert2

end function

[NicoDE]

Zitat:

Zitat von flotschie

heisst das dann...das diese funktionen eigetnlich keine funktionen sind, so wie ich sie kenne.....sondern dass diese funktionen die übergabeparameter bearbeiten?

So ist es.

Zitat:

Zitat von flotschie

byval wert1 as int

Oben genannter Fall ist nicht byval (by value - es wird der Wert der Variablen übergeben), sondern byref (by reference - es wird eine Referenz auf die Variable übergeben). In letzterem Fall kann/soll sich der Inhalt der Variablen (dessen Referenz übergeben wude) ändern.

Dadurch ist sind API-Funktionen in der Lage Werte in Strukturen (auch mehrere) zurückzugeben. Und der Rückgabewert gibt meist Auskunft darüber, ob der Aufruf erfolgreich war.

[dizzy]

Variable Parameter sind bei Leibe keine Seltenheit ;)
Sehr viele API-Funktionen liefern lediglich einen Errorcode zurück, und die eigentliche Wertzuweisung passiert an einen der Parameter. Im Regelfall bekommst du von einer Fkt. den Wert 0 zurück wenn alles glatt ging, und irgend etwas "nicht 0" wenn's Probleme gab.
Aber die Win32-API ist sich in ihrer Vorgehensweise da sehr uneinig, weswegen sich ein Blick ins MSDN oder PSDK immer lohnt.

n8i,
dizzy

\\edit: woosso! war ich wieder laaaangsaaammmm...

[NicoDE]

Zitat:

Zitat von flotschie

den string im beispiel fülle ich ja zuerst mal mit Leerzeichen, die so lang sind wie der text

So lang sind wie der Text + 1 (da die API-Funktion bei ihren 'Strings' keine Längenangabe speichert oder kennt, sondern am Ende eine 0 anhängt und dadurch weiß, wan der String zu Ende ist - deswegen muss genug Platz für den Text und das Null-Byte reserviert werden).

Zitat:

Zitat von flotschie

Dann hat die zuweisung dieser funktion zu der variablen slength nur den zweck (ausser nacher dem abschneiden), das der übergabeparameter wintext befüllt wird...?

Visual Basic hat für sein String-Objekt eine Länge gespeichert. Diese Länge enthält aber auch das abschliessende Null-Byte. Um den String wieder zu kürzen (bzw. um Fehler abzufangen) werden nur die Zeichen kopiert, die die Funktion in den String-Puffer geschrieben hat (ohne Null-Byte).

\\edit@dizzy: keine Sorge, ich hab gerade noch länger gebraucht :)

[flotschie]

so danke für die antworten instweilen, hab versucht mein neues wissen gleich anzuwenden :-)

1. Zuerstmal hab ich die funktion mal so declared:

Code:

Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Long, [b]ByRef[/b] lpString As String, ByVal nMaxCount As Long) As Long

--> byref damit die variable überschrieben werden kann - richtig bis jetzt?

2. bekomm ich schon vorher im programm einen fehler, und zwar nach folgendem code:

[code]Dim proz As Process = Process.GetProcessById("572")
Dim Pufferlänge As Long, Puffer As String
Dim find1 As Long
find1 = FindWindow(vbNullString, proz.MainWindowTitle)
Pufferlänge = GetWindowTextLength(find1) + 1
Puffer = Space(CInt(Pufferlänge))[/code]

...also mit find1 bekomme ich einmal den Handle des Fensters.
...mit Pufferlänge und getwindowtextlenght die Puffergrösse des textes + 1
...will ich aber in der nächsten Zeile den Puffer mit Leerzeichen befüllen bekomm ich einen Überlauf...
...kein Wunder wenn die Pufferlänge 18320440699125828 beträgt :roll:

Da kann doch was nicht stimmen oder? Der Text ist niemals so lang....also irgendwas ist da falsch.

P.s.: Wirklich danke für die Antworten obwohl ich euer Delphi-Forum mit Vb zuspamme :stupid:

[NicoDE]

Zitat:

Zitat von flotschie

Zuerstmal hab ich die funktion mal so declared

Versuchs damit: http://www.vbarchiv.net/vbapi/GetWindowTextLength.php

Warum lpString als ByVal definiert ist ist eine lange Geschichte :)
Kurzfassung der Interna:
- bei ByRef generiert der Compiler grundsätzlich Code, in welchem die Adresse der Variablen an die Funktion übergeben wird.
- bei ByVal generiert der Compiler fast immer Code, in welchem der Inhalt der Variablen an die Funktion übergeben wird - aber nicht für alle Typen (zum Beispiel wird bei Strings die Adresse des ersten Zeichens übergeben - die Grundregel ist: von allem was nicht in ein Prozessor-Register passt, wird die Adresse des ersten Bytes übergeben).

Eigentlich musst Du das nicht alles Wissen, da gerade die VB-Leute ware API-Import-Freaks sind (Visual Basic war nicht dafür konzipiert Funktionen der Win32-API direkt aufzurufen...).


Google ist Dein Freund :)