Ovrsættelse af VB program

tror det kræver lidt mere info om de typer som bliver exported til den dll.

du kunne også sige hvad det handlede om, kunne være nogle kendte et alternativ...

Hej
Det er til kommunikatioin med en Siemens industri processor (Saphir). Ja - jeg ved godt der mangler dokumentation på COM / DLL objekter.
Jeg har lidt dokumentation på det, men det er meget sparsomt, umiddelbart er det "bare" nogle VB eksempler.

Jeg har så ud fra disse eksempler, lavet overstående - som fungerer.

Jeg prøver af få fat i noget mere dokumentation

Hvis du har vb-eksempler så må der også være definitioner af datastrukturerne - eller det er der måske ikke?

Næh - stort set er det bare et eksempel, der ligner det lille program jeg har lavet. Jeg har så bare ændret nogle adresser osv.

Jeg har nu bedt leverandøren komme med noget bedre dokumentation - det er vist godt nok på tysk - hehe.

Noget andet er.
Når jeg "importerer" funktionerne i Delphi, så får jeg jo lavet nogle filer (_TLB), hvor jeg kan se funktioner, interfaces osv. Kan i se noget ud af disse filer ?

Jeg har aldrig rodet med COM / DLL i Delphi - som i nok kan se ;)

du skriver bare navnet på TLB'en under uses. I TLB filen er der sikkert nogle interfaces, der svarer til de objekter du laver i VB...

Så folkens - flere oplysninger er fremskaffet (Det tog lidt tid)
Venligst tag et kig på det, og hjækp mig, jeg vil meget gerne i gang med det her, også for at lære nye områder.

Dokumenter findes her : www.blackend.dk/ObjectHandlerDocumentation.zip

Dokumentationen gør jo ikke meget nytte, hvis problemet er, at du ikke kan oprette objekter i Delphi... Har du prøvet at kigge i TLB filerne?

Ja, jeg har prøvet at kigge i TLB filerne - det hjælper mig bare ikke så meget - jeg kan ikke rigtig komme i gang med at erklære min objecter / interfaces - nok mest fordi jeg ingen erfaring har i COM programmering.

Noget af det første jeg skal gøre må være at sætte Commmodule, interface osv. ligesom jeg gør i VB.

Jeg har lavet et "dump" af filen RAINBOWSERLib_TLB

her: http://www.blackend.dk/rainbowserlib.htm

fjong - så kan du lave et ISaproSerSrv object på denne måde

var
  oSapro : ISaproSerSrv;
...

  oSapro := CoRainbowSrv.Create;

Den er jeg helt med på,men ........
Når jeg sætter oSapro.Conf.
Så får jeg ikke muligheden SetinterfaceType, SetInterfacePar, SetTargetType ?
Skal de tilgås på en anden måde ?

det er fordi oSapro.Conf har type IDispatch, så skal du bruge QueryInterface der cirka svarer til et typecast - husk at objekter kan implementere flere interfaces.

var
  oSapro : ISaproSerSrv;
  conf  : ISaproConf;
...

  oSapro := CoRainbowSrv.Create;
  if FAILED(oSapro.QueryInterface(IID_ISaproConf, conf)) then
    //handle error

så burde du kunne kalde conf objektets metoder

...
  conf.SetInterfaceType('InterfaceTyp');
  conf.SetInterfacePar('57600,8,2,N,1');
  conf.SetTargetType(6);

Det ser ud til jeg er ved at nå mit mål.
Jeg skal dog lige have checket med en processor
Hvordan stopper jeg komm igen.

Jeg har ikke mulighed for at .free så jeg har prøvet at sætte := Nil. Det tror jeg dog ikke er rigtigt!!

procedure TForm1.Button4Click(Sender: TObject);
var
  oSapro : ISaproSerSrv;
  conf  : ISaproConf;
  oTask  : IRainbowState;
  oLoad  : IRainbowLoader;
  oOBJH  : IRainbowObjectHandler;
  InterfaceTyp: String;
  Value: OleVariant;
begin
  oSapro := CoRainbowSrv.Create;
  oTask  := CoRainbowState.Create;
  oLoad  := CoRainbowLoader.Create;
  oOBJH  := CoRainbowObjectHandler.Create;

  if FAILED(oSapro.QueryInterface(IID_ISaproConf, conf)) then
  Showmessage('Error')
  else
  begin
  If cmbCom.Text = 'Com 1' Then
    InterfaceTyp := 'RainbowSerSrv.CommModule01';
  If cmbCom.Text = 'Com 2' Then
    InterfaceTyp := 'RainbowSerSrv.CommModule02';
  Try
    conf.SetInterfaceType(InterfaceTyp);
    conf.SetInterfacePar('57600,8,2,N,1');
    conf.SetTargetType(6);
    oTask.SetInterface(oSapro);
    oLoad.SetInterface(oSapro);
    oObJH.SetInterface(oSapro,0);
    Value := edtResult.Text;
    oOBJH.WriteMember(edtID.Text,StrToInt(edtMember.Text),Value,EmptyParam);
  Finally;
    oSapro := Nil;
    oTask  := Nil;
    oLoad  := Nil;
    oOBJH  := Nil;
  end;
  End;
end;

jow, i delphi skal den bare sættes til nil. I C++ skal man kalde obj->release();

Hej Nico26

Alt ser ud til at fungere nu - jeg takker mange gange.

Hvis du laver et svar, så skal du få dine points ;-)

svar :)