Delphi & Vb.net?

Delphi nu om dage kommer i 2 versioner: en for Win32 og en for .NET

.NET version og VB.NET boer integrere perfekt - du kan bare bruge
assemblies

med Win32 versionen er der vel 2 muligheder:
- koere to EXE og kommunikere via sockets/pipes/global memory
- kommunikere via COM

hvis du fortaeller hvilken vej, saa kan jeg maaske give flere detaljer

Jeg bruger Win 32'eren

Btw skal man kører 2 programmer eller behøver man kan at køre et?

det burde være muligt at bygge VB.NET koden til et COM modul som du kan tilgå
fra Delphi (i Win32) og så vil det køre som et program

enten kan du google noget om hvordan eller så kan jeg prøve at bixe noget imorgen
eller lørdag

Hmm okay :) kunne være dejligt hvis du ville prøve at lave lidt fis med det :)

VB.NET kode:

Imports System
Imports System.Reflection

<assembly: AssemblyKeyFile("Delphi.snk")>
Namespace Delphi
    Public Class Test
        Public Function Dup(s As String, n As Integer) As String
            Dim res As String = ""
            Dim i As Integer
            For i = 1 To n
                res = res & s
            Next
            Dup = res
        End Function
    End Class
End Namespace

Delphi kode:

program d_vb;

{$APPTYPE CONSOLE}

uses
  ActiveX, ComObj;

var
  tst : Variant;

begin
  CoInitialize(nil);
  tst := CreateOLEObject('Delphi.Test');
  writeln(tst.Dup('ABC', 3));
  CoUninitialize;
  readln;
end.

Ja jeg ved godt at den måde at bruge COM fra Delphi er en skandale, men det er nu
den nemmeste måde.

Hvis jeg gide prøver jeg at lave det rigtigt med type import og hele svineriet.

for at builde VB.NET kode og registrere DLL:

sn -k Delphi.snk
gacutil /u Delphi.dll
regasm /u Delphi.dll
vbc /t:library Delphi.vb
regasm Delphi.dll
gacutil /i Delphi.dll

jeg fik det til at virke med type import

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

<assembly: AssemblyKeyFile("Delphi.snk")>
Namespace Delphi
    <Guid("4A855566-3146-40dc-A226-45570F86FD0B"),InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> Public Interface ITest
        <DispId(1)> Function Dup(s As String, n As Integer) As String
    End Interface
    <Guid("F87E97F4-8B5F-4761-BBE4-13512B9BA03B"),ClassInterface(ClassInterfaceType.None),ProgId("Delphi.Test")> Public Class Test
    Implements ITest
        Public Function Dup(s As String, n As Integer) As String Implements ITest.Dup
            Dim res As String = ""
            Dim i As Integer
            For i = 1 To n
                res = res & s
            Next
            Dup = res
        End Function
    End Class
End Namespace

program d_vbx;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  DelphiX_TLB in 'C:\e4\DelphiX_TLB.pas';

var
  tst : ITest;

begin
  CoInitialize(nil);
  tst := CoTest.Create;
  writeln(tst.Dup('ABC', 3));
  CoUninitialize;
  readln;
end.

sn -k Delphi.snk
gacutil /u DelphiX.dll
regasm /u DelphiX.dll
vbc /t:library DelphiX.vb
regasm DelphiX.dll /tlb:DelphiX.tlb
gacutil /i DelphiX.dll

Smid da lige et svar :)

gerne

har du faaet det til at virke ?

(det er ikke helt simpelt)