XProfan

- page 24 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 15 -

Jens-Arne
Reumschüssel

il y a une neue Version, qui anders avec dem internen Messagehandling umgeht. s'il te plaît probier qui la fois aus. Peut-être cela Problem avec cela behoben.

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!
Habe 0 reingeschrieben - et es fonctionne!
cet DLL habe je sur qui Erzeuger-Page d'accueil www.paehl.de/ aussi pas plus trouvé.
là vous mais bien funktioniert, mets je vous weiterhin un.
merci!

23.05.2023 ▲

Kompilieren Marque Séparation

Jens-Arne
Reumschüssel

Probier la fois cet kleine Programme aus:


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

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

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

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

Daran wird bien sûr, dass alle Funktionsaufruf-Methoden toujours korrekt pour interner Typumwandlung qui Adresse eines Cordes transfert, qui chr$(0) contient, seulement DEF pas. 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 Dir cela voll!

Ausprobieren allez mais pas, là sich cela Ding im Präcompiler sur nimmer Wiedersehen verabschiedet.

Brauche je en supplément qui Test_fbprocs.dll?

bild_2023-05-25_175200090.png	25 kB

Hochgeladen:	25.05.2023

Downloadcounter:
		Download

25.05.2023 ▲

Jens-Arne
Reumschüssel

alors c'est merkwürdig. je peux cela problemlos starten, aussi avec "<Tilde><Tilde>temp<Tilde><Tilde>.prf" comme Dateiname. Daher wieder qui zugegebenermaßen quelque chose hilflose Frage: la hâte Du qui neuste Version de JRPC3 benutzt? Sonst wüsste je pas, woran cela liegen pourrait. et qui Dossier Test_fbprocs.dll wird oui justement seulement par cela Programme erzeugt, qui musst Du alors pas auparavant avons.

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.

Problem était wahrscheinlich, dass je qui Source pas gespeichert hatte (?).
Jedenfalls ist es pour dem Sauver eh bien gelaufen - et je vois cela Ergebnis!

maintenant muss je mich encore avec freebasic beschäftigen, um aussi eigene DLL erzeugen trop peut!

Doch juste qui prochain Frage

: pourquoi wird beim call-Aufruf un d'autre i retour comme beim Direktaufruf et beim external?
Sollte doch qui Wert derselben Adresse son?

bild_2023-05-27_174524520.png	4 kB

Hochgeladen:	27.05.2023

Downloadcounter:
		Download

27.05.2023 ▲

Kompilieren Marque Séparation

Jens-Arne
Reumschüssel

non, c'est qui Trick dabei: chez chacun Übergabe de chr$(0) wird de XProfan interne un neuer String erzeugt et dessen Adresse transfert. direct pour retour qui DLL-Funktion wird qui String avec Sicherheit tout de suite wieder freigegeben. Daher hat chacun Aufruf une autre, zufällige String-Adresse.

c'est sogar chez XProfan-Cordes selbst qui le cas. chaque la fois, si Du einem String une neuen le contenu zuweist (selbst si es derselbe ist comment auparavant), steht qui String après à einer entier anderen Speicheradresse. interne wird oui toujours oui c'est ca so viel grenier angefordert, comment pour qui Longueur des Cordes erforderlich ist. et là cet Longueur variable ist, wird cela chez chacun Zuweisung récente vorgenommen. c'est pourquoi ist cela travailler avec übergebenen Cordes dans fb-/pbPROCs so compliqué, weil qui Speicheradresse de Cordes variable ist, im opposition zur Speicheradresse de z.B. Integer-Variablen.

Beispiel:

declare s$
cls
s$="123"
imprimer @addr($ S)
s$="123"
imprimer @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

Version 9.17a disponible:

{$WrapDlls} eingeführt. avec cela volonté qui de fb-/pbPROCs erzeugten DLL direct dans qui XProfan-Exe-Dossier integriert, sodass vous pas plus mitgeliefert volonté doit. Siehe Aider-Dossier trop 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, merci pour qui Erklärung!

28.05.2023 ▲

funkheld

allez cela s'il te plaît aussi pour Purebasic?

merci.
gruss

XProfan 11

30.05.2023 ▲

Jens-Arne
Reumschüssel

allô funkheld,

oui. il peut sogar FreeBasic et PureBasic nebeneinander benutzen, si on voudrais. ensuite volonté avec {$WrapDlls} beide DLL dans cela Profan-Programme incorporé.

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 avec libre wählbaren Rückgabetypen incorporé

Deklarationsbeispiel: pbPROC ProcName.s() pour une String comme Rückgabewert

qui Typangabe venez alors pour dem Prozedurnamen, pas pour "pbPROC", comme dans reinem PureBasic üblich wäre [Procedure.s ProcName()].

ACHTUNG: de Integer abweichende Rückgabetypen dürfen pas dans pbPROCs verwendet volonté, qui vom XProfan-Programme aufgerufen volonté, là Rückgabewerte de DLL-Prozeduren à l' Hauptprogramm toujours 4 Bytes breit son doit. très wohl mais dans "Hilfs-pbPROCs", qui seulement de anderen pbPROCs aufgerufen volonté.

Genauer dit dürfen chez extern verwendeten Funktionen aucun Rückgabetypen benutzt volonté, qui pas quatre Bytes belegen. Single (.f dans PureBasic) serait alors durchaus aller. mais ce sont Feinheiten.

chez fbPROCs était cela alles ne...aucune großes Problem, là dans FreeBasic qui Rückgabetypdefinition avec As ... pour qui Parameterklammer venez. Pour pbPROCs musste mais une spezielle Schreibweise pour her.

Salut, 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:
Es peut eh bien beliebige DLL direct dans qui XProfan-EXE integriert volonté. Hierzu ist {$WrapDll <DLL-Name>} trop verwenden. qui DLL-Dossier muss ensuite pas plus mitgeliefert volonté.

ca ist allerdings seulement chez relativ kleinen DLL sinnvoll, weil sonst qui Ladezeit des XProfan-Programms trop grand volonté serait. si on mais z.B. prfdat32.dll einbinden voudrais, ensuite ist cet Funktion parfait pour approprié.

{$WrapDll ...} wirkt comment ImportDll(). qui Funktionen qui DLL peut alors direct im Code verwendet volonté. un Aufruf sur @external() bleibt mais également possible. Beides wird de JRPC3 dans schnelle @call()-Aufrufe verwandelt.

Salut, 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 ▲