| |
| |
|
 | which tab must here ensured go.
or becomes the of Xpia4 or XProfan übernommen the right secure of Registern?
mfg
CompileMarkSeparation $MAKE CLE
$H Windows.ph
Declare hwin&,x&,y&,f&,hdcwin&
Window 20,20-200,200
hWin& = Create(Window, %hWnd, Test, 250, 20, 650,500)
hDCWin& = ~GetWindowDC(hWin&)
If 0
AsmStart pset
Parameters hdcwin&,x&,y&,f&
mov ecx,para1
mov eax,para2
mov ebx,para3
mov edi,para4
invoke SetPixel,ecx,eax,ebx,edi
AsmEnd
EndIf
whileloop 0,100,1
x&=&loop
y&=&loop
f&=$ff0000
Call(GetXpiaProcAddress(XpiaModule&,pset),hdcwin&,x&,y&,f&)
endwhile
WaitInput
End
|
|
| |
| |
| |
|
|
Frank
Abbing | Virtually each API changed The tab. If you The data to the API again using want, must You tappt im dunkeln before on the Stack pushen and later again runternehmen. or variables use.
which tab a API using, is always differently. You can also never integrally sure his, that one tab not changed becomes. the can itself with next Betriebssystem already changed having.
the here goes incidentally too:
CompileMarkSeparation |
|
| |
| |
| |
|
|
| Jup,thanks.
what power The Profan2Cpp-Solution?
mfg |
|
| |
| |
| |
|
|
Sebastian
König | 2peter Bierbach, Beitrag=52367, Zeitpunkt=15.05.2009
what power The Profan2Cpp-Solution?
Frank has me a little while ago declared, what itself with XPIA changed has. i'll then soon my Plug-In on it adjust. can but something last, I to Time very with others Things engage be...
MfG
Sebastian |
|
| |
| Windows XP, XProfan/Profan² 4.5 bis 11 Profan2Cpp-Homepage: [...]  Alte Profan²-Seite: [...] | 05/15/09 ▲ |
|
| |
|
|
| Jup, everything clear.
The erstellten Dll of Xpia4 walk with the Profan2Cpp wonderful.
have now time 2 Exe prepares with XProfan.
once with Asmstart/Asmend and once with the supra erstellten Dll.
with Asmstart/Asmend 10200 Zeiteinheiten and the same with the Dll 4550 Zeiteinheiten.
The Profan2Cpp runs to Time only with the Xpia4-Dll and need 4100 Zeiteinheiten.
with Dll :
CompileMarkSeparation $H Windows.ph
DEF createpen(3) ! asm_grafik1.dll,createpen
DEF lineto(3) ! asm_grafik1.dll,lineto
DEF movetoex(3) ! asm_grafik1.dll,movetoex
DEF pset(4) ! asm_grafik1.dll,pset
Declare hwin&,x&,y&,f&,hdcwin&,pstyle&,pwidth&,pcolor&,mypen&,test%
Window 20,20-200,200
hWin& = Create(Window, %hWnd, Test, 250, 20, 650,500)
hDCWin& = ~GetWindowDC(hWin&)
pstyle&=3
pwidth&=0
pcolor&=$ff0000
mypen&=createpen(pstyle&,pwidth&,pcolor&)
~SelectObject( hdcwin&, mypen& )
test%=&GetTickCount
whileloop 1,10000,1
x&=200
y&=200
movetoex(hdcwin&,x&,y&)
x&=400
y&=40
lineto(hdcwin&,x&,y&)
endwhile
Print Str$(Int(&GetTickCount-test%))
WaitInput
End
without Dll:
CompileMarkSeparation $MAKE CLEI
$H windows.ph
Declare hwin&,x&,y&,f&,hdcwin&,pstyle&,pwidth&,pcolor&,mypen&,Test%
Window 20,20-200,200
hWin& = Create(Window, %hWnd, Test, 250, 20, 650,500)
hDCWin& = ~GetWindowDC(hWin&)
If 0
AsmStart createpen
Parameters pstyle&,pwidth&,pcolor&
invoke CreatePen,para1,para2,para3
AsmEnd(mypen&)
AsmStart movetoex
Parameters hdcwin&,x&,y&
invoke MoveToEx,para1,para2,para3,0
AsmEnd
AsmStart pset
Parameters hdcwin&,x&,y&,f&
invoke SetPixel,para1,para2,para3,para4
AsmEnd
AsmStart lineto
Parameters hdcwin&,x&,y&
invoke LineTo,para1,para2,para3
AsmEnd
EndIf
pstyle&=3
pwidth&=0
pcolor&=$ff0000
mypen&=Call(GetXpiaProcAddress(XpiaModule&,createpen),pstyle&,pwidth&,pcolor&)
~SelectObject( hdcwin&, mypen& )
test%=&GetTickCount
whileloop 1,10000,1
x&=200
y&=200
Call(GetXpiaProcAddress(XpiaModule&,movetoex),hdcwin&,x&,y&)
x&=400
y&=40
Call(GetXpiaProcAddress(XpiaModule&,lineto),hdcwin&,x&,y&)
endwhile
Print Str $(Int(&GetTickCount-Test%))
WaitInput
End
mfg |
 |
| |
| |
| |
|
|
Sebastian
König | is the now only an example or Why kapselt You these einfachen API-Aufrufe in DLL-functions? I mean, one simple
DEF SetPixel(3) !GDI32,SetPixel
etc.
is still certainly the effizienteste Solution...
MfG
Sebastian |
|
| |
| Windows XP, XProfan/Profan² 4.5 bis 11 Profan2Cpp-Homepage: [...] Alte Profan²-Seite: [...] | 05/15/09 ▲ |
|
| |
|
|
| is still certainly the effizienteste Solution...
becomes of Tool, which with Xpia4 with thereby is, so angefertigt for appeal.
is the now only an example or Why kapselt You these einfachen API-Aufrufe in DLL-functions?
The routines get time with invoke over Xpia4 called. is one Funktionstest.
mfg |
|
| |
| |
| |
|
|
Frank
Abbing |
is still certainly the effizienteste Solution...
The effizienteste Solution is well, too The Loop in ASM to program.  |
|
| |
| |
| |
|
|
| The effizienteste Solution is well, too The Loop in ASM to program.
The Scheife yourself is with Profan2Cpp already one lightning, where it Yes now wonderful over the appeal of Xpia4 runs.
I wanted to only time the integral testing.
mfg |
|
| |
| |
| |
|
|
Sebastian
König | 2peter Bierbach, Beitrag=52377, Zeitpunkt=16.05.2009
The effizienteste Solution is well, too The Loop in ASM to program.
The Scheife yourself is with Profan2Cpp already one lightning, where it Yes now wonderful over the appeal of Xpia4 runs.
I wanted to only time the integral testing.
me went it now only therefore, that one simple API-functions too directly with DEF or. External() use can - a Kapselung in a ASM-block bring only additional Overhead with itself...
MfG
Sebastian |
|
| |
| Windows XP, XProfan/Profan² 4.5 bis 11 Profan2Cpp-Homepage: [...] Alte Profan²-Seite: [...] | 05/16/09 ▲ |
|
| |
|
(909)
Deutsch
English
Français
Español
Italia