Das ist schon mal besser...
Ich bekomme jetzt in der Folge erst in der Self32Lib_tlb einen Fehler "Klasse nicht registriert", und zwar bei
Delphi-Quellcode:
procedure TSELFWrite.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer; //Hier ist Schluss
Fintf:= punk as ISELFWrite;
end;
end;
Das hängt aber sicher eher an der Registrierung der Self32.dll.
Zitat von
DeddyH:
Müsste es nicht so lauten?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MySelfWrite : TSelfWrite; //aus der Self32LIB-TLB.pas
SWResult:Integer;
begin
MySelfWrite := TSelfWrite.Create(nil);
try
MySelfWrite.Open('Datev-FBOP-BW-KNE','','C:\SELF\',2,99999);
SWResult:=MySelfWrite.CreateTempSet('Datev-FBOP-BW-KNE');
showmessage('Res.:'+IntToStr(SWResult));
finally
MySelfWrite.Free;
end;
end;