Inoffizielles deutsches Xbase-Forum

Hallo Jimmy, ob Excel das genau so kann wie Open Office, weiß ich nicht. Probiere es aus. Du kannst auf einem deutschen Windows unter Systemsteuerung / Regions- und Sprachoptionen / Sprachen die Unterstützung für ostasiatische Sprachen installieren und dann mit dem deutschen Excel versuchen, obige C...

Hi Jimmy,

falls Excel Probleme bereiten sollte, probier mal Open Office Calc.

Gruß, Günter
Unicode-CSV-Datei

Hi Jimmy, versuch mal deine Daten im CSV-Format zu exportieren, dieses in Unicode umzuwandeln, dann deine Ersatz-Umlaute wie ae, oe, ue durch richtige Umlaute zu ersetzen und die Datei dann mit Excel zu importieren. Pseudocode: // Umlaute in UFT-16 kodiert aUmlaut := { chr( 0xE4 ) + chr( 0 ) ,; // ä...

Hi Jimmy, Hmm. ArialUNI.TTF "patchen" damit er eine andere Codepage benutzt ArialUNI.TTF beinhaltet vermutlich alle Codepages, und auf jeden Fall auch Zeichen von Sprachen, die keiner Codepage zugeordnet sind wie z.B. Hindi. Unicode-Beispiel UTF-16.PNG Was IMHO fehlt, ist "set charset...

Hallo Jimmy, da Excel eine Unicode-Anwendung ist, versuche doch mal aus deinem Programm heraus das Excel-Sheet mit Unicode-Strings zu füttern. Wenn du einen Xbase++ - String hast, kannst du den mit Str2Unicode() in einen Unicode-String umwandeln. In wie weit das im konkreten Fall funktioniert, kanns...

Hallo Hubert,

ich habe mal geschaut, wie das Betriebssystem die Dateiverschlüsselung angeht. Herausgekommen ist dabei dies hier http://xbaseforum.de/viewtopic.php?f=16&t=3583. Es scheint auch mit DBFs zu funktionieren.

Viele Grüße
Günter

Hallo Hubert,

CryptFile() aus der Professional Subscription. Vielleicht ist auch Packen mit Passwort eine Option.

Gruß,
Günter

Hi Jimmy,

hast du mal versucht, das Dokument readonly zu öffnen? Das sollte dem Anwender Grenzen setzen.

Helpkit hat geschrieben:

Code: Alles auswählen

object.Open(Document As Variant, ReadOnly As Variant, ProgId As Variant, WebUsername As Variant, WebPassword As Variant)

Gruß, Günter

Hallo Tom, ja, der Datentypfehler ist mir nach dem Absenden auch aufgefallen, doch da war ich schon ganz auf abschalten eingestellt. Das allein bringt's aber leider noch nicht. Nach ein bisschen Googlen funktioniert es aber nun und besteht auch (bis auf Nr. 5) die test cases nach RFC 4231 :D #define...

Hallo Tom, der Pseudocode ist fast 1:1 nach Xbase++ übertragbar; laut http://tools.ietf.org/html/rfc4231 (Identifiers and Test Vectors) hat SHA-256 die Blocklänge 64 Byte. ungetestet; #define blocksize 64 function hmac( key, message ) local opad := replicate( chr(0x5c), blocksize ) local ipad := rep...

Jimmy, überprüfe mal auf dem chinesischen PC die Regions- und Sprachoptionen. Auf der Tab-Page "Regionale Einstellungen" sollte Chinesisch (Taiwan) ausgewählt sein. Auf der Tab-Page "Erweitert" auch :!: Damit wird die Sprachunterstützung für Nicht-Unicode-Anwendungen aktiviert, w...

Hi Jimmy, zunächst eine kleine Korrektor zu GetLocaleInfo(). Damit dürfte das abwegige Zeichen am Stringende beseitigt sein. FUNCTION GetLocaleInfo( nLCID, nInfoType ) local rc local cData local nLen // Länge des Strings, der per Referenz zurück erwartet wird, ermitteln: nLen := GetLocaleInfoA( nLCI...

Hallo Jimmy, die Beschreibung der Funktionsparameter und die Namen und Bedeutung der Konstanten findest du in der MSDN-Doku, leider nicht die dazugehörigen #defines. Ich hänge mal eine passende Include-Datei an. Deine Bemerkung mit dem Holzweg verstehe ich nicht ganz. Du wolltest doch wohl irgendwas...

Hi Jimmy, #define CAL_GREGORIAN 1 // Gregorian (localized) #define CAL_TAIWAN 4 // Taiwan calendar IF ID_CHINA == .T. ? x := GetLocaleInfo( LOCALE_USER_DEFAULT, CAL_TAIWAN ) ELSE ? x := GetLocaleInfo( LOCALE_USER_DEFAULT, CAL_GREGORIAN ) ENDIF was erwartest du hier zu sehen? Der Präprozessor macht a...

Hi Jimmy,

hat du mal probiert, was SetLocale( NLS_SDAYNAME1 ) in deiner Anwendungsumgebung auf dem chinesischen und nicht-chinesischen OS ausgibt? Es sollte der Name für "Montag" sein.

Gruss
Günter

Hi Jimmy, das müsste ganz ohne Resource Hacker ( :shock: ) mit GetLocaleInfoA aus kernel32.dll gehen, siehe auch http://msdn.microsoft.com/en-us/library/dd318101%28VS.85,loband%29.aspx also in etwa /* Diese Funktion gibt einen Leerstring zurück, falls das System eine gegebene Sprachkennung nicht unt...

Hi Jimmy,

willst du darauf hinaus, die Wochentagsnamen in einer anderen Sprache als der in Windows
eingestellten zu bekommen? Das wäre per Win API machbar.

Lass hören...

Gruss
Günter

Hallo Klaus,

soweit ich weiß nur aus der Registry.

Die installierten Fonts sind unter

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

aufgelistet.

Per Programm zum Beispiel mit Thomas Brauns RegClass, http://www.software-braun.de/dl/regclass.zip.

Viele Grüße
Günter

Hallo Jannik, ein Array von C-Strukturen, mit der Xbase++ - Brille betrachtet, entspricht der Aneinanderreihung mehrerer gleich langer und gleich strukturierter Binärstrings. Wenn nur einfache Werte darin enthalten sind, brauchst du im Prinzip nur substr() und die Bin2X()-Funktionen -- Bin2L() und C...

Hallo, Genau, MDI-Fenster. Phil hat das irgendwo gepostet, aber ich finde den Link nicht. So oder so ähnlich geht das: #define WS_MAXIMIZEBOX 0x10000 #define WS_MINIMIZEBOX 0x20000 nValue := GetWindowLongA( hWnd, GWL_STYLE ) nValue := bAnd( nValue, bNot( bOr( WS_MAXIMIZEBOX, WS_MINIMIZEBOX) ) ) SetW...

Hallo Jan, versuche mal RemoveFrame( oTreeView ) Viele Grüße, Günter #include "dll.ch" #define WS_EX_CLIENTEDGE 0x00000200 #define GWL_EXSTYLE (-20) #define SWP_NOSIZE 0x0001 #define SWP_NOMOVE 0x0002 #define SWP_FRAMECHANGED 0x0020 PROCEDURE RemoveFrame( oXbp ) local hwnd := oXbp:getHWND(...

Hallo Jimmy,

Es werden Unicode-Strings zurückgeliefert.

wie Klaus schon schrieb...

hast du Unicode2Str() verwendet?

Günter

Hi Jimmy, guckst du hier (zwar nicht WMI): MSDN Library / Win32 and COM Development / User Interface / Windows Controls / Visual Styles / Visual Styles Reference / Functions GetCurrentThemeName Function aus UxTheme.dll cThemeFileName := space(512) cColorSchemeName := space(128) cSizeName := space(12...

Hallo Jan, diese Art Scrollbars sind Windows-eigener fester Bestandteil der drawingarea, und das fehlende :scrollTop() und die anderen Scrollfunktionen kannst du daher ohne grosse Umstände nachrüsten: CLASS MyDialog FROM XbpDialog INLINE METHOD scrollTop() SendMessageA( ::drawingArea:getHWND(), WM_V...

Robin, Hubert,

Bin2Var( Var2Bin( oObj ) ) -> geklontes Objekt.

Bei Objekten wie XBPs, , die Handles enthalten, allerdings nicht unproblematisch.

Viele Grüße
Günter