XProfan

Italia

Jürgen
Egener

Guten Tag an alle Community-Teilnehmer,

seit Monaten bin ich (Programmier-Anfänger) auf der Cerca nach einer IDE mit der man(n) einfach DLL erstellen kann.
Profan = Programmieren für Anfänger.

Für das Freeware-Programm Roulette-Tester möchte ich gerne DLL per eigene Testzwecke erstellen.

[...]

Zitat: Offene Schnittstelle: Programmierer können eigene Systeme als DLL entwickeln und mit dem Tester auswerten. Beispielquelltext in Delphi ist enthalten.

Da ich bei NULL anfange würde ich mich freuen, wenn ein Mitglied aus diesem
Foro bereit wäre, irgend eine kleine DLL per dieses o.g. Programm mit (X)Profan
zu erstellen. Dies wäre per mich DIE Bestätigung mit XProfan zu beginnen.

Vielen Dank.
Jürgen

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

29.10.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Schau mal: [...]

Salve.

29.10.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Nur mal so als Einwurf, iF, kann man mit XProfan ünberhaupt DLL erstellen? Meines Erachtens geht das doch nicht????????

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

29.10.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

XProfan alleine kanns noch nicht aber mit XProfan in Verbindung mit Prf2Cpp

kann man DLL exportieren ebenso wie mit XProfan und XPIA.

Salve.

29.10.2005 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Frank
Abbing

Hi,

hier mal ein Minimalbeispiel einer Dll mit (X)Profan & XPIA. Übrigens können Dlls schon ab Profan 5 erzeugt werden. Die integrierten Dlls direkt im Profansource sind aber erst ab XProfan nutzbar.
Kompilieren Markieren Separieren

 {$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

Das Programm gibt jetzt 333 aus.
Der Source, den XPIA erzeugt, und in den die Dll eingebettet ist, sieht dann so aus:
Kompilieren Markieren Separieren

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