Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
Procedure.s Get_MacOSX_Default(inwhat$, whattype$)
Define x,x$
x = RunProgram("/usr/bin/defaults", "read " + inwhat$ + " " + whattype$, "/usr/bin", #PB_Program_Open|#PB_Program_Read)
If x = 0 : ProcedureReturn "error" : EndIf
x$ = ""
While ProgramRunning(x)
x$ = x$ + ReadProgramString(x); Trim(" ", ReadProgramString(x))
Wend
CloseProgram(x)
ProcedureReturn x$
EndProcedure
LanguageCode$ = Get_MacOSX_Default("NSGlobalDomain", "AppleLocale")
Language$ = Left(LanguageCode$, 2)
Debug language$Code: Alles auswählen
ImportC ""
CFRelease(CFTypeRef.L)
CFStringGetCString(CFStringRef.L, *StringBuffer, BufferSize.L, CFStringEncoding.L)
KLGetCurrentKeyboardLayout(*KeyboardLayoutRef)
KLGetKeyboardLayoutProperty(KeyboardLayoutRef.L, PropertyTag.L, *PropertyValue)
EndImport
#kKLName = 5
Procedure.S ConvertCFStringIntoString(CFStringRef.L)
Protected String.S = Space(256)
CFStringGetCString(CFStringRef, @String, Len(String), 0)
CFRelease(CFStringRef)
ProcedureReturn Trim(String)
EndProcedure
Define LanguageName.S
If KLGetCurrentKeyboardLayout(@KeyboardLayoutRef) = 0
If KLGetKeyboardLayoutProperty(KeyboardLayoutRef, #kKLName, @LanguageNameRef) = 0
MessageRequester("Tastatur-Info", "Aktuell eingestellte Sprache: " + ConvertCFStringIntoString(LanguageNameRef))
EndIf
EndIfHallo Shardik,Shardik hat geschrieben:Mit API:Code: Alles auswählen
ImportC "" CFRelease(CFTypeRef.L) CFStringGetCString(CFStringRef.L, *StringBuffer, BufferSize.L, CFStringEncoding.L) KLGetCurrentKeyboardLayout(*KeyboardLayoutRef) KLGetKeyboardLayoutProperty(KeyboardLayoutRef.L, PropertyTag.L, *PropertyValue) EndImport #kKLName = 5 Procedure.S ConvertCFStringIntoString(CFStringRef.L) Protected String.S = Space(256) CFStringGetCString(CFStringRef, @String, Len(String), 0) CFRelease(CFStringRef) ProcedureReturn Trim(String) EndProcedure Define LanguageName.S If KLGetCurrentKeyboardLayout(@KeyboardLayoutRef) = 0 If KLGetKeyboardLayoutProperty(KeyboardLayoutRef, #kKLName, @LanguageNameRef) = 0 MessageRequester("Tastatur-Info", "Aktuell eingestellte Sprache: " + ConvertCFStringIntoString(LanguageNameRef)) EndIf EndIf
Hallo michel51,michel51 hat geschrieben:Hallo Shardik,
wenn ich diesen Code in >unicode< compiliere, dann bekomme ich asiatische Schriftzeichen als Antwort.
In >ascii< funktioniert es einwandfrei.
Code: Alles auswählen
ImportC ""
CFRelease(CFTypeRef.L)
CFStringGetCString(CFStringRef.L, *StringBuffer, BufferSize.L, CFStringEncoding.L)
KLGetCurrentKeyboardLayout(*KeyboardLayoutRef)
KLGetKeyboardLayoutProperty(KeyboardLayoutRef.L, PropertyTag.L, *PropertyValue)
EndImport
#kCFStringEncodingMacRoman = 0
#kCFStringEncodingUnicode = $100
#kKLName = 5
Procedure.S ConvertCFStringIntoString(CFStringRef.L)
Protected Encoding.L
Protected String.S = Space(256)
If #PB_Compiler_Unicode
Encoding = #kCFStringEncodingUnicode
Else
Encoding = #kCFStringEncodingMacRoman
EndIf
CFStringGetCString(CFStringRef, @String, Len(String), Encoding)
CFRelease(CFStringRef)
ProcedureReturn Trim(String)
EndProcedure
Define LanguageName.S
If KLGetCurrentKeyboardLayout(@KeyboardLayoutRef) = 0
If KLGetKeyboardLayoutProperty(KeyboardLayoutRef, #kKLName, @LanguageNameRef) = 0
MessageRequester("Tastatur-Info", "Aktuell eingestellte Sprache: " + ConvertCFStringIntoString(LanguageNameRef))
EndIf
EndIfHallo Shardik,Shardik hat geschrieben: Hallo michel51,
Danke für den Hinweis! Ich habe das Beispiel jetzt so angepaßt, daß es
sowohl im ASCII- als auch im Unicode-Modus korrekt funktioniert
