XProfan

English

Jürgen
Egener

good day all Community-subscriber,

since Monaten be I (Programmier-Beginner) on the Search after a IDE with the one(n) simply DLLs create can.
Profan = pergrammieren für oncatcher.

for the Freeware-Program Roulette-Tester would like I gladly DLLs for Own Testzwecke create.

[...]

Quote: apertured interface: Programmer can Own systems LookupAccountName develop and the Tester evaluate. Beispielquelltext in Delphi is include.

Since I with NULL anfange would I forward, if one Member from this
Forum ready would, ever a small DLL for this o.g. Program with (X)Profan
to create. this would for me DIE verification with XProfan to begin.

Vielen Thanks.
Jürgen

"Bewusstes Kommunizieren zwischen Menschen setzt voraus, dass sie das »Unbewusste« miteinander gemein haben."
Pierre Bourdieu (1930-2002)

10/29/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look time: [...]

salvo.

10/29/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

only time so as throw-in, iF, can with XProfan ünberhaupt DLLs create? of my Erachtens does it still not????????

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

10/29/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

XProfan on my own kanns yet not but with XProfan in link with Prf2Cpp

can DLLs export likewise How with XProfan and XPIA.

salvo.

10/29/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hi,

here time one Minimalbeispiel of/ one Dll with (X)Profan & XPIA. Übrigens can Dlls already ex Profan 5 created go. The integrierten Dlls directly in the Profansource are but first ex XProfan useable.
Compile Mark Separation

 {$cliq}
Declare x&,y&,z&
x&=111
y&=222

AsmStart Funktionsname

    Parameters x&,y&
    mov eax,para1
    add eax,para2
    Return z&

AsmEnd

Cls
Print z&
WaitInput
End

the Program gives now 333 from.
The Source, whom XPIA created, and whom The Dll eingebettet is, sees then so from:
Compile Mark Separation

DECLARE XPIA_#,XPIA$,EXPIA&,X&,Y&,Z&
DIM XPIA_#,1536
CLEAR XPIA_#
LONG XPIA_#,0=9460301,3,4,65535,184,0,64,0,0,0,0,0,0,0,0,176,247078670,-855002112,1275181089,1750344141,1881174889,1919381362,1663069537,1869508193,1700929652,1853190688,544106784,542330692,1701080941,168627502,36,0,-564840227
LONG XPIA_#,132=-1925490279,-1925490279,-1925490279,-1926661787,-1925490280,-1926740457,-1925490273,1751345490,-1925490279,0,0,17744,131404,1130615166,0,0,554565856,201654539,512,512,0,4164,4096,8192,268435456,4096,512,4,0,4
LONG XPIA_#,252=0,12288,512,0,2,1048576,4096,1048576,4096,0,16,4432,80,4344,40,0,0,0,0,0,0,8192,44,0,0,0,0,0,0,0,0,0,0,0,0,4096,8,0,0,0,0,0,0,1297301837,12851,416,4096,512,512,0,0,0,-536870880,1818587694,25455,48,8192,512,1024
LONG XPIA_#,488=0,0,0,1107296320,0,0,4392,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1192457387,1,836297,-1679290518,-1962934272,144902213,-1961885680,212012101,-1961885680,279121989,-1961885680,346231877,-1961885680,413341765,-1961885680
LONG XPIA_#,640=480451653,-1961885680,547561541,-1961885680,614671429,-1961885680,681781317,-1961885680,748891205,-1961885680,816001093,-1961885680,883110981,-1961885680,950220869,-1961885680,1017330757,-1961885680,1084440645
LONG XPIA_#,716=-1022361584,-2081649835,1170734276,764,-9508864,144834559,51380240,1051653,146983184,637520896,268439552,4384,0,0,4406,4096,0,0,0,0,0,4392,0,1699152177,1937331060,1869377347,1937047666,842232421,1819042862,0,0
LONG XPIA_#,840=0,0,0,1130615166,0,4482,1,1,1,4472,4476,4480,4304,4498,1398734848,1701866857,1852137324,1818504808,1967521900,1769237358,1853058671,6647137,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4096,44,811806811,812855403
LONG XPIA_#,1040=813903995,814952587,816001179,817049771,818098363,820195531,821309673,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
LONG XPIA_#,1344=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
XPIA$=$TEMPDIR+/_Simpel_enh.dll
FILEMODE 1
ASSIGN #1,XPIA$
OPENRW #1
BLOCKWRITE #1,XPIA_#,0,1536
CLOSERW #1
DISPOSE XPIA_#
X&=111
Y&=222
Z&=EXTERNAL(XPIA$,Funktionsname,X&,Y&)
CLS
PRINT Z&
WAITINPUT
END