• Welcome to Theos PowerBasic Museum 2017.

News:

Attachments are only available to registered users.
Please register using your full, real name.

Main Menu

Recent posts

#71
Windows API Programming / Re: Old program - SE_Engine
Last post by Israel Vega - April 28, 2017, 06:00:59 PM
Ok...only replace this file:   SE_ENGINE.INC  with I attach.

#72
Windows API Programming / Re: Old program - SE_Engine
Last post by Zlatko Vid - April 28, 2017, 02:16:57 PM
Hi Israel Vega
Ok i will add but i don't know where .
I tried to add this line on few places BUT then i receive strange erorrs
like : Must be outside of Sub/Function/Class
do you can explain to me where to add this line ?
#73
Windows API Programming / Re: Old program - SE_Engine
Last post by Israel Vega - April 27, 2017, 07:41:18 PM
Only add THREAD in file  SE_ENGINE.INC

THREAD FUNCTION tokenizer(BYVAL inscript AS STRING PTR) AS DWORD     


and now is working fine in PBWIN10
#74
I have merged Andrei changes into a new version, with:
further code clean up,
new font set for both the listbox window and the printer,
switched back to XP compatibility,
no more TCLib linking that has been removed.

With more features, and further code optimization, we have been able to keep the size of the 64-bit Unicode DLL at only 11 Kb.

The latest zip file is available here
http://www.objreader.com/index.php?topic=91.msg618#msg618
#75
Windows API Programming / Old program - SE_Engine
Last post by Zlatko Vid - April 27, 2017, 06:25:29 PM
Hi to all!
I found on PowerBasic forum old scripting engine called SE_Engine
then i try to compile this demo program with PBWin10
then compiler exit with two errors.
when i comment those lines with errors then i compile program but it looks that cannot run script.
My question is , Is possible to compile that code properly with PBwin10 ?
thanks !

link to post;
https://forum.powerbasic.com/forum/user-to-user-discussions/source-code/36386-se-script-engine?t=35461
#76
Ok, the fixes have been done
http://www.objreader.com/index.php?topic=91.msg623#new

I have also updated the codeproject submission.


#77
The "Geek" corner / Re: Boing2
Last post by Stefan Midegaal - April 26, 2017, 10:30:43 AM
Quote"Fast food" was a metaphore for the bloated code created by the new programming paradigm.
that is why i have written
Quotei understand what your mean.
QuoteAnd being in a new century doesn't mean to throw out the good pratice.
Dito!
QuoteBy the way i have removed the offending code from codeproject
Yes
Some people are simply not worth it
Which is shared with them.
I know that.

But Boing64 works on W7 without any trouble
#78
The "Geek" corner / Re: Boing2
Last post by Patrice Terrier - April 26, 2017, 10:01:21 AM
Emil

"Fast food" was a metaphore for the bloated code created by the new programming paradigm.

And being in a new century doesn't mean to throw out the good pratice.

By the way i have removed the offending code from codeproject ;)

...
#79
Andrey

Thank you very much for the fix.

Most are residuals of my first PowerBASIC translation at the time i was Learning C++,
zTrace was the first on my list to help me to debug my other tools.

I should have loocked more closely at my first translation.
Quote
WideCharToMultiByte(CP_ACP, 0, sMessage, -1, buffer, BufferSize - 1, 0, 0);
(but better remake this function to support unicode chars (for example chinese language))
For the debug text file, i prefer to keep using ANSI to be compatible with my old text editor,
however i shall put a new option to select between ansi or unicode.

I shall update the code with your zip file, thank you again!  8)
#80
C++ programming (SDK style) / Re: zTrace 3.00 64-bit is also...
Last post by Andrey Unis - April 26, 2017, 01:40:46 AM
Quote from: Patrice Terrier on April 21, 2017, 12:07:11 PM
By the way with only 14Kb, it could be used to debug any unicode 64-bit application...
Can make 11kb...
By the way, there are few mistakes...
function zDebug() includes NUL characters to log file
WideCharToMultiByte(CP_ACP, 0, sMessage, -1, buffer, BufferSize - 1, 0, 0);
(but better remake this function to support unicode chars (for example chinese language))

function ToolProc()
    case WM_GETMINMAXINFO:
         MoveMemory(&pMM, (MINMAXINFO*) lParam, sizeof(pMM));
         SetRect(&rc, 0, 0, MIN_WIDTH, MIN_HEIGHT);
         AdjustWindowRectEx(&rc, dwStyle, FALSE, dwExStyle);  // Adjust Window To True Requested Size
         pMM.ptMinTrackSize.x = rc.right;
         pMM.ptMinTrackSize.y = rc.bottom;
         break;

fix
case WM_GETMINMAXINFO:
SetRect(&rc, 0, 0, MIN_WIDTH, MIN_HEIGHT);
AdjustWindowRectEx(&rc, WND_Style, FALSE, WND_ExStyle);  // Adjust Window To True Requested Size
((LPMINMAXINFO)lParam)->ptMinTrackSize.x = rc.right;
((LPMINMAXINFO)lParam)->ptMinTrackSize.y = rc.bottom;
break;


case IDM_Print:
  ...
  long* SelItem = new long[nSelItems];
memory leak, missed: delete [] SelItem ;

my variant (11kb) attached