Code: Alles auswählen
Structure mystruct
wert1.i
wert2.i
wert3.i
EndStructure
ProcedureDLL bla()
Static result.mystruct
result\wert1 = 4711
result\wert2 = 0815
result\wert3 = #True
ProcedureReturn @result
EndProcedure
; mainprogramm
Define *value.mystruct = bla()
Debug *value\wert1
Debug *value\wert2
Debug *value\wert3
Naja so würde ich das nicht machen. Immerhin kann man dann nicht 2 mal bla aufrufen um 2 verschiedene Inhalte zu bekommen, da die Adresse von result gleich bleibt bei Static. Das macht man mit *result.mystruct = AllocateMemory(SizeOf(mystruct)) üblicherweise oder durch einen Parameter. Wenn er sowieso herausfinden will ob die Operation erfolgreich war, wär das mit den Parametern sogar sinnvoll. Dann kann er ganz normal mit dem Rückgabewert einen Errorcode oder sowas ausgeben und in dem Parameter dann die Werte speichern.ts-soft hat geschrieben:Strukturen als pointer zurückgeben wäre eine Idee dazu
Code: Alles auswählen
Structure mystruct wert1.i wert2.i wert3.i EndStructure ProcedureDLL bla() Static result.mystruct result\wert1 = 4711 result\wert2 = 0815 result\wert3 = #True ProcedureReturn @result EndProcedure ; mainprogramm Define *value.mystruct = bla() Debug *value\wert1 Debug *value\wert2 Debug *value\wert3
Das ist es ja.Kaeru Gaman hat geschrieben:nicht ganz richtig, mag sein dass die Adresse gleich bleibt, aber das juckt nicht, weil man den Inhalt beliebig anpassen kann.
Code: Alles auswählen
*test1.mystruct = bla()
*test2.mystruct = bla()Nur bis zum nächsten Aufruf und nicht weiter. Sowas mag doch keiner, wozu sollte man sowas gebrauchen, wenn man nichtmal 2 Inhalte parallel betrachten kann? Dann doch lieber das mit dem Parameter wie von mir und dir vorgeschlagen.Mit statischen Variablen vermeide globale variablen
und der Inhalt bleibt trotzdem bis zum nächstem Aufruf der Funktion gültig
Tu ich auch nicht, das war nur die Antwort auf das herablassende Verhalten von ts-soft, der meine Vorschläge auch sofort als unbrauchbar abgestempelt hat.Kaeru Gaman hat geschrieben:nun, du solltest nicht annehmen, dass es keine Verwendung gäbe für Ergebnisse mit Verfallsdatum.
Wenn ich den Speicherblock zurückgebe, hab ich auch völlig recht. Das ist prinzipiell dasselbe, nur mit parallelen Speicherblöcken. Ich glaube du vermischst meine 2 Vorschläge.Kaeru Gaman hat geschrieben:außerdem wenn wir es mal eher wörtlich nehmen, hat ts tatsächlich völlig recht.
Code: Alles auswählen
Structure mystruct
a.l
b.i
c.d
EndStructure
; 1. Vorschlag:
ProcedureDLL.i bla()
Protected *result.mystruct
*result = AllocateMemory(SizeOf(mystruct))
If *result
*result\a = 5
*result\b = 3
*result\c = 1.0
EndIf
ProcedureReturn *result
EndProcedure
ProcedureDLL freebla(*object.mystruct)
If *object
FreeMemory(*object)
EndIf
EndProcedure
; 2. Vorschlag:
ProcedureDLL.i blaVorschlag2(*object.mystruct)
*object\a = 5
*object\b = 3
*object\c = 1.0
ProcedureReturn #OK
EndProcedureCode: Alles auswählen
ProcedureDLL.i blaVorschlag2(*object.mystruct)
If *object\a = 5
*object\b = 3
*object\c = 1.0
ProcedureReturn #True
Endif
ProcedureReturn #False
EndProcedure