XProfan

- Página 24 -

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 15 -

Jens-Arne
Reumschüssel

Lo son una neue Versión, el anders con el internen Messagehandling umgeht. Bitte probier el veces de. Tal vez el problema así Fijo.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

24.09.2022 ▲

Walter

OK!
Posesiones 0 reingeschrieben - y lo se ejecuta!
Diese DLL Yo en el Erzeuger-Homepage www.paehl.de/ auch no mehr gefunden.
Como ellos aber bien funktioniert, Puse ellos weiterhin una.
Gracias!

23.05.2023 ▲

Kompilieren Marca Separación

Jens-Arne
Reumschüssel

Probier veces dieses kleine Programa de:


{$NoExternal2CallConversion}
{$NoDef2ExternalConversion}
{$SetFbDllName Test_fbprocs}

DEF fbTestProc2(1) !"Test_fbprocs.dll","FBTESTPROC@4"

fbPROC fbTestProc(byval i as integer) as integer Export
  volver i
ENDPROC

cls
imprimir "Direktaufruf: "+@str$(fbTestProc(chr$(0)))
imprimir "via Externo: "+@str$(@external("Test_fbprocs.dll","FBTESTPROC@4",chr$(0)))
imprimir "via Call: "+@str$(@call(@GetFbProcAddr("fbTestProc"),chr$(0)))
imprimir "via DEF: "+@str$(@fbTestProc2(chr$(0)))
waitinput
end

Daran se klar, dass todos Funktionsaufruf-Métodos siempre korrekt después de interner Typumwandlung el Adresse uno Cuerdas transferencia, el chr$(0) enthält, sólo DEF no. DEF übergibt unkorrekt 0.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

23.05.2023 ▲

Walter

Glaub Usted el voll!

Ausprobieren va pero no, como se lo en el Präcompiler en nimmer Wiedersehen verabschiedet.

Brauche Yo dazu el Test_fbprocs.dll?

bild_2023-05-25_175200090.png	25 kB

Hochgeladen:	25.05.2023

Ladeanzahl:
		Descargar

25.05.2023 ▲

Jens-Arne
Reumschüssel

Also el es merkwürdig. Puedo el problemlos starten, auch con "<Tilde><Tilde>temp<Tilde><Tilde>.prf" como Dateiname. Daher otra vez el zugegebenermaßen algo hilflose Cuestión: Hast Usted el neuste Versión de JRPC3 benutzt? Sonst Sé que no, woran el mentira podría. Und el Expediente Test_fbprocs.dll se sí gerade sólo por el Programa producido, el musst Usted also no vorher haben.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

27.05.2023 ▲

Walter

Sooooo ... geschafft.

Problema war wahrscheinlich, dass Yo el Source no gespeichert hatte (?).
Jedenfalls es después de el Guardar nun gelaufen - y yo sehe el Ergebnis!

Jetzt muss Yo mich todavía con freebasic beschäftigen, en auch propio DLL erzeugen a puede!

Doch igual el nächste Cuestión

: ¿Por qué se beim call-Aufruf una más i zurückgegeben como beim Direktaufruf y beim external?
Sollte doch el Valor derselben Adresse ser?

bild_2023-05-27_174524520.png	4 kB

Hochgeladen:	27.05.2023

Ladeanzahl:
		Descargar

27.05.2023 ▲

Kompilieren Marca Separación

Jens-Arne
Reumschüssel

Nein, el es el Trick esta: En cada Übergabe de chr$(0) se de XProfan intern una neuer String producido y dessen Adresse transferencia. Direkt después de Rückkehr el DLL-Función se el String con Sicherheit inmediatamente otra vez freigegeben. Daher ha cada Aufruf una otro, zufällige String-Adresse.

Es incluso en XProfan-Cuerdas incluso el Fall. Jedes Tiempo, si una String una neuen Inhalt zuweist (incluso si derselbe es como vorher), es el String danach a uno bastante otro Speicheradresse. Intern se sí siempre genau así viel Speicher angefordert, como para el Longitud des Cuerdas erforderlich es. Und como esta Longitud variabel es, se en el cada Zuweisung neu vorgenommen. Deshalb es el Arbeiten con übergebenen Cuerdas en fb-/pbPROCs así kompliziert, porque el Speicheradresse de Cuerdas variabel es, en el Gegensatz a Speicheradresse de z.B. Integer-Variables.

Ejemplo:

declarar s$
cls
s$="123"
imprimir @addr(s$)
s$="123"
imprimir @addr(s$)
waitinput
end

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

28.05.2023 ▲

Jens-Arne
Reumschüssel

Versión 9.17a verfügbar:

{$WrapDlls} eingeführt. Damit voluntad el de fb-/pbPROCs erzeugten DLL direkt en el XProfan-Exe-Expediente integriert, sodass ellos no mehr mitgeliefert voluntad necesario. Siehe Ayuda-Expediente a Kompilerdirektiven --> {$WrapDlls}.

Beste Grüße, Jens-Arne

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

28.05.2023 ▲

Walter

Ok, danke para el Erklärung!

28.05.2023 ▲

funkheld

Geht el Por favor, auch para Purebasic?

Gracias.
gruss

XProfan 11

30.05.2023 ▲

Jens-Arne
Reumschüssel

¡Hola funkheld,

sí. Se puede incluso FreeBasic y PureBasic nebeneinander benutzen, si uno möchte. Dann voluntad con {$WrapDlls} beide DLL en el Profano-Programa instalado.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

31.05.2023 ▲

Jens-Arne
Reumschüssel

V9.26:
pbPROCs con frei wählbaren Rückgabetypen instalado

Deklarationsbeispiel: pbPROC ProcName.s() para una String como Rückgabewert

El Typangabe kommt also después de el Prozedurnamen, no después de "pbPROC", como en reinem PureBasic üblich wäre [Procedure.s ProcName()].

ACHTUNG: Von Integer abweichende Rückgabetypen dürfen no en pbPROCs verwendet voluntad, el vom XProfan-Programa aufgerufen voluntad, como Rückgabewerte de DLL-Prozeduren ans Hauptprogramm siempre 4 Bytes breit ser necesario. Sehr wohl aber en "Hilfs-pbPROCs", el sólo de otro pbPROCs aufgerufen voluntad.

Genauer dijo dürfen en extern verwendeten Características no Rückgabetypen benutzt voluntad, el no vier Bytes ocupar. Single (.f en PureBasic) sería also durchaus ir. Aber el son Feinheiten.

En fbPROCs war el alles kein großes Problema, como en FreeBasic el Rückgabetypdefinition con As ... después de el Parameterklammer kommt. Für pbPROCs musste aber una spezielle Schreibweise dafür her.

Saludo, Jens-Arne

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

12.06.2023 ▲

Jens-Arne
Reumschüssel

V9.31a:
Lo puede nun beliebige DLL direkt en el XProfan-EXE integriert voluntad. Hierzu es {$WrapDll <DLL-Name>} utilizarse. El DLL-Expediente muss entonces no mehr mitgeliefert voluntad.

Dies es allerdings sólo en relativ pequeño DLL sinnvoll, porque sonst el Ladezeit des XProfan-Programms a groß voluntad sería. Wenn uno aber z.B. prfdat32.dll einbinden möchte, entonces esta Función perfekt dafür geeignet.

{$WrapDll ...} wirkt como ImportDll(). El Características el DLL puede also direkt en el Code verwendet voluntad. Ein Aufruf encima @external() restos aber ebenfalls posible. Beides se de JRPC3 en schnelle @call()-Aufrufe verwandelt.

Saludo, Jens-Arne

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

14.06.2023 ▲