Hallo,
brauch mal dringend Eure Hilfe.
Ein Hersteller, dessen Namen ich nicht gerade nennen möchte
, liefert uns eine
ActiveX-
DLL die er in VB6.0 geschrieben hat. Wir sind mit unserem Produckt dringend auf diese Daten angewiesen und möchten mit unserer Delphi3.0 Applikation drauf zu greifen.
Bislang habe ich gehofft über folgenden Code:
==================================================
function ErmittleGUX:integer;
safecall external 'D:\gox57\GUX_VB.dll' name 'ErmittleGUX()';
procedure TForm1.Button1Click(Sender: TObject);
var
t:integer;
begin
t:=ErmittleGUX;
edit1.text:= inttostr(t)
end;
============================================
Statt safecall habe ich auch schon stdcall versucht, jedoch ohne Erfolg.
Statt dessen kommt immmer Prozedureeinsprung wurde nicht gefunden zurück?
=========================================
VB-seitig soll die
DLL wohl so aussehen:
Public Function ErmittleGUX() As Integer
ErmittleGUX=[Zahlenwert]
end Function
Diese Funktion ist Bestandteil einer Klasse cls_TX.
Wer kann mir hier helfen, das wir irgendwie diese Funktion aufrufen können und die Wert für unser Delphi Programm bekommen.