PureBasic Forums - English

Hello,

Updated the demo with 2 more callbacks with Integer and Double parameters.

Again here is the complete purebasic source with the newlisp utf8 dll (32 bit):
This time also the compiled demo with 52224 Bytes.

http://www.hpwsoft.de/anmeldung/html1/n ... isp_PB.zip

Regards

Hello,

Here the current Version with callback-support:

viewtopic.php?f=13&t=71552

Regards

Hello,

Thanks to all advisers here and on the german forum.
I finally managed to get my newlisp demo to work with the callbacks.

Here is a complete purebasic source with the newlisp utf8 dll (32 bit):

http://www.hpwsoft.de/anmeldung/html1/newLISP/hpwNewLisp_PB.zip

Screenshot:

http://www ...

Slow progress but still errors.

With advice from the german forum I have this now:


Procedure CallBack1(*CallBackParam)
theString.s = PeekS(*CallBackParam,-1,#PB_UTF8)
MessageRequester("CallBackDemo1", "Param; "+ theString)
EndProcedure



MessageRequester("Debug", "CallBackAdress ...

Hello Spikey,

Thanks again for the Link.
Reads promissing.
Do not really understand what is done there, but we want to learn. Inline-Assembler is new to me.


Import "/EXPORT:CallBack1" : EndImport

!public _Procedure16 as 'CallBack1'

ProcedureDLL CallBack1(*CallBackParam)
theString.s = PeekS ...

Hello Spikey,

Thanks for the advise. I had tried it because Thorium gave that advice.

But your version thows the same error:


[16:54:05] [ERROR] hpwNewLisp.pb (Zeile: 60)
[16:54:05] [ERROR] Illegale Anweisung. (Ausführen von binären Daten?)


Translation: Illegal code. Execution of binary data ...

Hello,

I tested several version without luck.


Prototype CallBackStrProto(param.p-utf8)

Procedure CallBack1(CallBackParam.CallBackStrProto)
; theString.s = PeekS(CallBackParam,-1,#PB_UTF8)
; MessageRequester("CallBackDemo", "Param; "+ theString)
MessageRequester("CallBackDemo", "Param ...

Hello,

Thanks for the tip. I will give it a try.

Regards

Hello,

For the newlisp-interpreter I need a callback into the purebasic Exe.

I had done this from Delphi by this way:

Delphi procedure in Exe:

procedure TForm1.xRefresh1(param1 : PChar); stdcall;
begin
showmessage('Delphi xRefresh1: '+param1);
end;


With passing the Pointer "integer(@TForm1 ...

Hello Fred,

It works like a charm.

Now a one liner in my Event Loop select: Much cleaner and readable.

Regards

Hello Fred,

Thanks for the code comment and tip.
I will try it out today.

Very appreciated!

Regards
Hans-Peter

Hello Kwai chang caine,


Now, perhaps someone can explain what LISP can do, that the over open source langages, cannot


First newlisp is another open source language.
Since you have found the Homepage yourself, you may further read some arguments for using it:
http://www.newlisp.org/index.cgi ...

Hello,

Today I find a bit time to test a this combination: newlisp.dll UTF8 with purebasic 5.62
Since purebasic is a unicode compiler, it was interesting to use newlisp.dll UTF8.

Importing the dll is simple:

OpenLibrary(0,"newlisp_utf8.dll")

The call function can look like this:

sourcestr.s ...

Hello,

>>purebasic_compilation0.exe

Ok, but it is not practical to enter each new testfile in every related path into the Whitelist which can be only done from admin account.

And you can not set Folders to exclude from the real time protection. You can only do it for Virus scans. So it is that ...

Hello,

I have purebasic.exe in my whitelist.
What do you mean by 'related files'?
I can not configure Mcaffee to exculde a Folder from realtime-protection.
And it complains about the temp-exe.

Regards