XProfan

Deutsch

Jürgen
Egener

Guten Tag an alle Community-Teilnehmer,

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

Für das Freeware-Programm Roulette-Tester möchte ich gerne DLLs für 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
Forum bereit wäre, irgend eine kleine DLL für dieses o.g. Programm mit (X)Profan
zu erstellen. Dies wäre für 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 zitieren Zeilenweise zitieren

Schau mal: [...]

Salve.

29.10.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Nur mal so als Einwurf, iF, kann man mit XProfan ünberhaupt DLLs 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 zitieren Zeilenweise zitieren

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

kann man DLLs exportieren ebenso wie mit XProfan und XPIA.

Salve.

29.10.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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