Delphi ASP component med flere interfaces

Du skal bruge Regsvr32.exe til at registrer dine dll'er med. Problemet er så bare at dette kan du kun komme til hvis du har din egen server. Men det kan selvfølgelig også lade sig gøre på en remote server, ihvertefald hvis den har cgi/isapi aktiveret.

Du kan så lave et cgi program, som så registrer dine dll'er på serveren.

function TWebModule1.RegOcxDll(filename: string): boolean;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer;
begin
  OCXHand := LoadLibrary(pchar(filename));

  RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');

  if RegFunc <> 0 then
    Result := false else result := true;

  FreeLibrary(OCXHand);
end;

function TWebModule1.UnRegOcxDll(filename: string): boolean;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer;
begin
  OCXHand := LoadLibrary(pchar(filename));

  RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');

  if RegFunc <> 0 then
    Result := false else result := true;

  FreeLibrary(OCXHand);
end;


Dette kan dog nok give dig problemer med server admin...
Men det er den eneste måde, ellers skal du til at spørge om de vil registrer den for dig.

Kan ikke forstå dit spørgsmål med interfaces? når du bruger type lib editoren er det da ligetil.

Er ikke sikker med mener da også at der er et par demos med delphi.

Jeg kan godt finde ud af at registrere dll'en. Jeg kan også godt lave flere interfaces til objektet, men fra ASP kan jeg umiddelbart kun bruge default interface, og altså ikke de ekstra interfaces der er på objektet.

Hvordan kan jeg fra ASP bruge andre interfaces end det der er default?

ok du klikker jo bare på "New Interface" oprettet de procedure og functioner der nu skal være.

i asp koden kalder du dem jo så bare:

Set ASPObj = Server.CreateObject("test.ET")
...
...
Set ASPObj = Server.CreateObject("test.TO")

Hvilket desværre giver:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/ThirdObject.asp, line 8
Invalid class string

Jeg ville mene at jeg skulle skrive noget lignende:
Set ASPObj = Server.CreateObject("test.mitobjekt.ET")
...
...
Set ASPObj = Server.CreateObject("test.mitobjekt.TO")

Men det virker heller ikke

du skal jo skrive det der passer med det object du har lavet. test skal være navnet på dit coclass og efter . skal du skrive dit interface navn

Det lader til at jeg i ASP'en skal skrive:
  Server.CreateObject("LIBRARY.COCLASS")
=  Server.CreateObject("Project1.ThirdObject")
ThirdObject implementerer 2 interfaces: "et" (default) og "to", men dem kan jeg ikke bruge i Server.CreateObject uden at få fejl ("Invalid class string"). Derfor har jeg kun metoderne fra "et" til rådighed.