Forum | | | | | 
Stephan
Sonneborn | Hi,
in the EMPTY32.DLL have I testweise with the ResourceBuilder two Strings eingefügt:
once in the Language german $0407 or. 1031:
and once in the Language english $0809 or. 2057:
The DLL have I over USEDLL eingebunden.
whom Text point I so To:
DE_Text$ = RES("GetStrings", PRGDLL&, 100, $00407)
EN_Text$ = RES("GetStrings", PRGDLL&, 100, $00809)
but I get The Error Message "String-Ressource not found: #100".
What is wrong? |
| | | | XProfan X4Schöne Grüße aus Wittgenstein von Stephan Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/28/20 ▲ |
| | |
| | 
Georg
Teles | good day,
How sees The Empty32.DLL the Ressource Hacker from, about so ?
then müsstest You The 100 in quotation marks settle, means
DE_Text$ = RES("GetStrings", PRGDLL&, "100", $00407)
EN_Text$ = RES("GetStrings", PRGDLL&, "100", $00809)
the 3.th Parameter is either The number the Stringes, beginnend with 1 or the name, means in the drop "100"
I suspect, You müsstest "100" prompt or only 1 as first String the Ressource, then ought to it weg.
Regards |
| | | | | | |
| |
Stephan
Sonneborn | I machine The DLLs really always with the Resource Builder. there sees the
then so from:
If I the Bespiel from the Help eingebe and then so erstellte Empty32.dll with the Resource Builder machine, comes a Error Message:
with the ResHacker siehts so from:
give I then "7" as third Parameter on, runs the Program moreover, reads but "6" as worth or. Text one, the so none in the DLL auftaucht.
The XProfan-Error Message is incidentally too with "100" as third Parameter dieselbe.
yet have I always The complete DLL (apiece Language a DLL) ausgetauscht and ExtString$() worked. Since there one very The number in the DLL (means here The 100) on. but unfortunately even without distinction with the Language. |
| | | | Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/28/20 ▲ |
| | |
| |  | Hi,
I faith there missing one Rautezeichen "#100" -
"Aktualisierte XProfan X4 - Helpfile (*.chm)" under "23 - Ressourcen":
(times the Helpfile durchstöbern, what Roland zwischenzeitlich so everything installed has...) |
| | | | | | |
| |
Stephan
Sonneborn | unfortunately helps one "#100" neither...
here time the previous Source:
'*******************************************************************************************************'
'* Program: Vokabeltrainer *'
''******************************************************************************************************'
'* Version: V0.01 *'
'* stood: 28.09.2020 *'
'* Info: Vokabeltrainer *'
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Klassendefinition *'
'*******************************************************************************************************'
CLASS Vokabel = word$(21), \
Uebersetzung$(21), \
Genus$(2), \
Casus$(13), \
Numerus$(11), \
Verb1$(21), \
Verb22$(21), \
Verb3$(21), \
Lesson$(13)', \
' Anlegen&, \
' import@, \
' export@, \
' Vorlesen@
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Variablendeklaration *'
'*******************************************************************************************************'
'*- Program -*'
DECLARE PRGDLL&
DECLARE PrgName$
DECLARE x!, xx!, y!, yy!
'*******************************************************************************************************'
'*- dialog -*'
DECLARE DlgText&[5,30], DlgText$[5,30]
DECLARE DlgEdit&[5,30]
DECLARE ToolBar&, ToolbarIcons& , TabControl&[5]
'*******************************************************************************************************'
'*- Vobaln -*'
DECLARE concept#
DECLARE String Texts[]
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Variablendimensionierung *'
'*******************************************************************************************************'
DIM concept#, Vokabel
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Wertzuweisungen *'
'*******************************************************************************************************'
PRGDLL& = USEDLL("Vokabeln_32.DLL")
'PRGName$ = RES("GetStrings", PRGDLL&, "#100", $00407)
PRGName$ = EXTSTRING$(PRGDLL&, 100)
ToolbarIcons& = 0'here later Toolbaricon present
'*******************************************************************************************************'
'*- Skalierung *'
xx! = 1.30
yy! = 1.15
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Prozedurname: MainWindow *'
''******************************************************************************************************'
'* Version: V0.01 *'
'* stood: 28.09.2020 *'
'* Info: building the Mainwindow/-dialog on *'
'*******************************************************************************************************'
PROC MainWindow
'*******************************************************************************************************'
'*- local Parameter -*'
DECLARE Handle&
DECLARE Tab&[5]
DECLARE dx%, dy%
DECLARE i%
DECLARE end%
'*******************************************************************************************************'
'*- Wertzuweisungen -*'
x! = 1.00
y! = 1.00
dX% = 640
dy% = 480
end% = 0
'*******************************************************************************************************'
'*- Fensteraufbau -*'
Handle& = CREATE("Dialog", %HWND, PrgName$, 0,0,0,0)
SETWINDOWPOS Handle& = INT((%MAXX-dx%)/2)*x!,INT((%MAXY-dy%)/2)*y! - dx%*x!, dy%*y!; 0
Toolbar& = CREATE("Toolbar", Handle&, ToolbarIcons&, 0, 0, WIDTH(Handle&), 64*y!)
TabControl&[1] = CREATE("TabCtrl", Handle&, "Vokabel", 5*x!, HEIGHT(Toolbar&) + 5*x!, WIDTH(Handle&) - 2 * 5*x!, HEIGHT(Handle&) - Height(Toolbar&)-2* 5*x! )
FOR i%, 2,5,1
TabControl&[i%] = INSERTTAB(TabControl&[1], i%,"Tab "+ STR$(i%) )
ENDFOR
'*******************************************************************************************************'
'*- Ereignishandler -*'
WHILENOT end%
WAITINPUT
end%=1
ENDWHILE
'*******************************************************************************************************'
'*- Window close -*'
DESTROYWINDOW(Handle&)
'*******************************************************************************************************'
ENDPROC
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Hauptprogramm *'
''******************************************************************************************************'
CLS
Mainwindow
DISPOSE concept#
FREEDLL PRGDLL&
END
and the zugehörige DLL. |
 | | | | Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/28/20 ▲ |
| | |
| | 
H.Brill | Mach still everything with Rolands installed functions.
Declare string Vokabeln[]
cls
var string DE[] = "Erster", "Zweiter", "Dritter"
var string EN[] = "First", "Second", "Third"
/*
res("addstrings", "E:/Vokabeln.dll", "Vokabeln", 1031, DE[])
res("addstrings", "E:/Vokabeln.dll", "Vokabeln", 2057, EN[])
*/
var lever hDLL = UseDLL("E:/Vokabeln.dll")
Vokabeln[] = res("GetStrings", hDLL, "Vokabeln", 1031)
WhileLoop 0, sizeOf(Vokabeln[]) - 1
Print Vokabeln[&loop]
EndWhile
Print
Vokabeln[] = res("GetStrings", hDLL, "Vokabeln", 2057)
WhileLoop 0, sizeOf(Vokabeln[]) - 1
Print Vokabeln[&loop]
EndWhile
WaitInput
end
the Auskommentierte Res("AddStrings",..) would I as extra Program
make, the later possible Changes the Ressource vornimmt.
or mach it as extra Programmpunkt.
then can you anytime Vokabeln moreover make and need none
extra Ressourcen-editor More.
and with the Move-functions can indeed very well Text files,
in them The new Vokabeln stand, reading and over The Listboxliste
into aray transferieren. accordingly go Resourcenänderungen very
komfortabel. |
| | | | Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 09/28/20 ▲ |
| | |
| |
Georg
Teles | me falls on, that
PRGName$ = RES("GetStrings", PRGDLL&, "#100", $00407)
one aray zurückgibt, but I get it neither there, it auszulesen
so functions it, but I understand not Why
Declare PRGNameN$[]'-------------------------------------#
PRGNameN$[] = RES("GetStrings", PRGDLL&, "#7", $00407)'--#
PRGName$ = PRGNameN$[4]'---------------------------------#
whole code
'*******************************************************************************************************'
'* Program: Vokabeltrainer *'
''******************************************************************************************************'
'* Version: V0.01 *'
'* stood: 28.09.2020 *'
'* Info: Vokabeltrainer *'
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Klassendefinition *'
'*******************************************************************************************************'
CLASS Vokabel = word$(21), \
Uebersetzung$(21), \
Genus$(2), \
Casus$(13), \
Numerus$(11), \
Verb1$(21), \
Verb22$(21), \
Verb3$(21), \
Lesson$(13)', \
' Anlegen&, \
' import@, \
' export@, \
' Vorlesen@
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Variablendeklaration *'
'*******************************************************************************************************'
'*- Program -*'
DECLARE PRGDLL&
DECLARE PrgName$
DECLARE x!, xx!, y!, yy!
'*******************************************************************************************************'
'*- dialog -*'
DECLARE DlgText&[5,30], DlgText$[5,30]
DECLARE DlgEdit&[5,30]
DECLARE ToolBar&, ToolbarIcons& , TabControl&[5]
'*******************************************************************************************************'
'*- Vobaln -*'
DECLARE concept#
DECLARE String Texts[]
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Variablendimensionierung *'
'*******************************************************************************************************'
DIM concept#, Vokabel
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Wertzuweisungen *'
'*******************************************************************************************************'
PRGDLL& = USEDLL("Vokabeln_32.DLL")
'PRGName$ = RES("GetStrings", PRGDLL&, "#100", $00407)
'PRGName$ = EXTSTRING$(PRGDLL&, 100)
Declare PRGNameN$[]'-------------------------------------#
PRGNameN$[] = RES("GetStrings", PRGDLL&, "#7", $00407)'--#
PRGName$ = PRGNameN$[4]'---------------------------------#
ToolbarIcons& = 0'here later Toolbaricon present
'*******************************************************************************************************'
'*- Skalierung *'
xx! = 1.30
yy! = 1.15
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Prozedurname: MainWindow *'
''******************************************************************************************************'
'* Version: V0.01 *'
'* stood: 28.09.2020 *'
'* Info: building the Mainwindow/-dialog on *'
'*******************************************************************************************************'
PROC MainWindow
'*******************************************************************************************************'
'*- local Parameter -*'
DECLARE Handle&
DECLARE Tab&[5]
DECLARE dx%, dy%
DECLARE i%
DECLARE end%
'*******************************************************************************************************'
'*- Wertzuweisungen -*'
x! = 1.00
y! = 1.00
dX% = 640
dy% = 480
end% = 0
'*******************************************************************************************************'
'*- Fensteraufbau -*'
Handle& = CREATE("Dialog", %HWND, PrgName$, 0,0,0,0)
SETWINDOWPOS Handle& = INT((%MAXX-dx%)/2)*x!,INT((%MAXY-dy%)/2)*y! - dx%*x!, dy%*y!; 0
Toolbar& = CREATE("Toolbar", Handle&, ToolbarIcons&, 0, 0, WIDTH(Handle&), 64*y!)
TabControl&[1] = CREATE("TabCtrl", Handle&, "Vokabel", 5*x!, HEIGHT(Toolbar&) + 5*x!, WIDTH(Handle&) - 2 * 5*x!, HEIGHT(Handle&) - Height(Toolbar&)-2* 5*x! )
FOR i%, 2,5,1
TabControl&[i%] = INSERTTAB(TabControl&[1], i%,"Tab "+ STR$(i%) )
ENDFOR
'*******************************************************************************************************'
'*- Ereignishandler -*'
WHILENOT end%
WAITINPUT
end%=1
ENDWHILE
'*******************************************************************************************************'
'*- Window close -*'
DESTROYWINDOW(Handle&)
'*******************************************************************************************************'
ENDPROC
'*******************************************************************************************************'
'*******************************************************************************************************'
'* Hauptprogramm *'
''******************************************************************************************************'
CLS
Mainwindow
DISPOSE concept#
FREEDLL PRGDLL&
END
i'd gladly a Statement this having 
Regards
EDIT:
there the "Deutsche Texte" in line 4 standing s. ResHacker, could The number 4 in the aray what so zutun having ? |
| | | | | | |
| |
Stephan
Sonneborn | H.Brill (28.09.2020)
Mach still everything with Rolands installed functions.
would be I gladly make, but I would like none The Vokabeln in a DLL secure, separate only The Texts the Programmoberfläche. really need I not for a Vokabelprogramm, there can The surface Yes quiet in german stay. but I have on the work one Program develops, that in unterschiedlichen Languages runs. and there I'm going still whom umständlichen Away with whom individual DLLs apiece Language and the Reading through ExtString$(). I wanted to simply times the new Opportunities testing.
moreover ought to I but already know, whom String I choose. clear, I could now for each Text a Ressourcenbereich (means whom 3. Parameter in the RES("GetStrings" - function) determine. but I thought, It's all right too plainer, z.B. any Texts on window 1, any Texts on window 2, any Hilfetexte To Window 1, any Hilfetexte To Window 2 u.s.w. each in a Resourcenbereich take off. so would The DLL plenty übersichtlicher, particularly then, if one The Text-numbers then spare determine can, z.B. 100-199 for Fenstertexte, 200-299 for pertinent Hilfetexte u.s.w.
I have me for in Excel a scheduler prepares: in slot A The number, in slot B one comma, in slot C the German Text, in D then the english. into Split E and F becomes then from it the entry for DLL generiert: number & comma & Text in the jeweiligen Language. thereafter can I then in Excel simply The whole slot copy and in the Resource Builder insert. ready! |
| | | | XProfan X4Schöne Grüße aus Wittgenstein von Stephan Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/28/20 ▲ |
| | |
| |
Stephan
Sonneborn | Georg Teles (28.09.2020)
me falls on, that
PRGName$ = RES("GetStrings", PRGDLL&, "#100", $00407)
one aray zurückgibt, but I get it neither there, it auszulesen
Georg Teles (28.09.2020)
so functions it, but I understand not Why
Declare PRGNameN$ '-------------------------------------#
PRGNameN$ = RES("GetStrings", PRGDLL&, "#7", $00407) '--#
PRGName$ = PRGNameN$ '---------------------------------#
I had already a variables aray probiert with "#7" as 3. Parameter. because the ResHacker there even a 7 writes. Why? i know not...
the power too only the ResHacker. The Resource Builder power not. For this can the neither with Texten as 3. Parameter (z.B. the "MONAT" in Rolands example) life.
Georg Teles (28.09.2020)
EDIT:
there the "Deutsche Texte" in line 4 standing s. ResHacker, could The number 4 in the aray what so zutun having ?
by me sustain I as Return Value for PRGName$ the value "8", at least becomes the as Window Title displayed...
for PRGNamen$ incidentally too...
 |
| | | | XProfan X4Schöne Grüße aus Wittgenstein von Stephan Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/28/20 ▲ |
| | |
| | 
E.T. | I use for something like without Problems ExtString$ , z.B. so:
SetText Status&, 0, @ExtString$(Prg_Dll& ,40)
or
Checker&[22] = @Create("RadioButton",Static_1&[0],@ExtString$(Prg_Dll& ,24),570,305,200,20)
The Parameter is then very The number, which z.B. in the ResHacker very to the Texteintrag standing.
in the Bsp. moreover supra means 1584 for "Januar" , 1585 for "Februar" etc... |
| | | | Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 09/28/20 ▲ |
| | |
| |
Stephan
Sonneborn | E.T. (28.09.2020)
I use for something like without Problems ExtString$ , z.B. so: SetText Status&, 0, @ExtString$(Prg_Dll& ,40)
or
Checker&[22] = @Create("RadioButton",Static_1&[0],@ExtString$(Prg_Dll& ,24),570,305,200,20)
The Parameter is then very The number, which z.B. in the ResHacker very to the Texteintrag standing. in the Bsp. moreover supra means 1584 for "Januar" , 1585 for "Februar" etc...
so make I the usually too. but so can not unterschiedlichen Languages works. or one must with unterschiedlichen Nummernkreisen works, I not would like... |
| | | | XProfan X4Schöne Grüße aus Wittgenstein von Stephan Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09/29/20 ▲ |
| | |
| |
E.T. | Versch. Languages for Programmoberfläche pack I always in a "verkappte" .ini-File (with "falscher" expansion).
per Language a File.
let itself m.M. to plainer Edit or. strain, as How each times the .dll To Edit. |
| | | | XProfan 11Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 09/29/20 ▲ |
| | |
|
AnswerThemeninformationenthis Topic has 5 subscriber: |
(472)
Deutsch
English
Français
Español
Italia
