Skip to main content
removeu 21 caracteres do conteúdo
Fonte Link
Taisbevalle
  • 9,2mil
  • 6
  • 30
  • 62

Eu uso uma "receitinha de bolo" que sempre funciona para mim.

Segue:

Crie uma interface:

namespace EscreveINI
{
    using System.Runtime.InteropServices;

    [InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
    public interface IEscreveIniClass
    {
        void Escrever();
    }
}

E uma classe:

namespace EscreveINI
{
    using System.IO;
    using System.Runtime.InteropServices;

    [ClassInterface(ClassInterfaceType.None), Guid("C77906F8-59A9-4187-B818-2F6CABF1A2AF")]
    public class EscreveIniClass : IEscreveIniClass
    {
        public void Escrever()
        {
            File.Create(@"C:\Windows\Temp\USB.ini").Close();
        }
    }
}

Marque no Assembly Information do ClassLibrary a opção "Make assembly COM-Visible"

E no build marque a opção "Register for COM interop"

Após isso copie a DLL para o local desejado juntamente com o arquivo tlb e rode o comando o seguinte comando de registro:

set path="%path%";C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319
regasm /tlb:EscreveINI.tlb EscreveINI.dll /codebase

Em seguida no Delphi vá em Project, Import Type Library e busque o tlb e clique em Create Unit.

Em seguida basta utilizar assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  lEscreveArquivo: IEscreveIniClass;
begin
  lEscreveArquivo := CoEscreveIniClass.Create();
  lEscreveArquivo.Escrever;
end;

Espero ter ajudado!

Eu uso uma "receitinha de bolo" que sempre funciona para mim.

Segue:

Crie uma interface:

namespace EscreveINI
{
    using System.Runtime.InteropServices;

    [InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
    public interface IEscreveIniClass
    {
        void Escrever();
    }
}

E uma classe:

namespace EscreveINI
{
    using System.IO;
    using System.Runtime.InteropServices;

    [ClassInterface(ClassInterfaceType.None), Guid("C77906F8-59A9-4187-B818-2F6CABF1A2AF")]
    public class EscreveIniClass : IEscreveIniClass
    {
        public void Escrever()
        {
            File.Create(@"C:\Windows\Temp\USB.ini").Close();
        }
    }
}

Marque no Assembly Information do ClassLibrary a opção "Make assembly COM-Visible"

E no build marque a opção "Register for COM interop"

Após isso copie a DLL para o local desejado juntamente com o arquivo tlb e rode o comando o seguinte comando de registro:

set path="%path%";C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319
regasm /tlb:EscreveINI.tlb EscreveINI.dll /codebase

Em seguida no Delphi vá em Project, Import Type Library e busque o tlb e clique em Create Unit.

Em seguida basta utilizar assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  lEscreveArquivo: IEscreveIniClass;
begin
  lEscreveArquivo := CoEscreveIniClass.Create();
  lEscreveArquivo.Escrever;
end;

Espero ter ajudado!

Eu uso uma "receitinha de bolo" que sempre funciona para mim.

Segue:

Crie uma interface:

namespace EscreveINI
{
    using System.Runtime.InteropServices;

    [InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
    public interface IEscreveIniClass
    {
        void Escrever();
    }
}

E uma classe:

namespace EscreveINI
{
    using System.IO;
    using System.Runtime.InteropServices;

    [ClassInterface(ClassInterfaceType.None), Guid("C77906F8-59A9-4187-B818-2F6CABF1A2AF")]
    public class EscreveIniClass : IEscreveIniClass
    {
        public void Escrever()
        {
            File.Create(@"C:\Windows\Temp\USB.ini").Close();
        }
    }
}

Marque no Assembly Information do ClassLibrary a opção "Make assembly COM-Visible"

E no build marque a opção "Register for COM interop"

Após isso copie a DLL para o local desejado juntamente com o arquivo tlb e rode o comando o seguinte comando de registro:

set path="%path%";C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319
regasm /tlb:EscreveINI.tlb EscreveINI.dll /codebase

Em seguida no Delphi vá em Project, Import Type Library e busque o tlb e clique em Create Unit.

Em seguida basta utilizar assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  lEscreveArquivo: IEscreveIniClass;
begin
  lEscreveArquivo := CoEscreveIniClass.Create();
  lEscreveArquivo.Escrever;
end;
Fonte Link
bernardbr
  • 312
  • 1
  • 7

Eu uso uma "receitinha de bolo" que sempre funciona para mim.

Segue:

Crie uma interface:

namespace EscreveINI
{
    using System.Runtime.InteropServices;

    [InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
    public interface IEscreveIniClass
    {
        void Escrever();
    }
}

E uma classe:

namespace EscreveINI
{
    using System.IO;
    using System.Runtime.InteropServices;

    [ClassInterface(ClassInterfaceType.None), Guid("C77906F8-59A9-4187-B818-2F6CABF1A2AF")]
    public class EscreveIniClass : IEscreveIniClass
    {
        public void Escrever()
        {
            File.Create(@"C:\Windows\Temp\USB.ini").Close();
        }
    }
}

Marque no Assembly Information do ClassLibrary a opção "Make assembly COM-Visible"

E no build marque a opção "Register for COM interop"

Após isso copie a DLL para o local desejado juntamente com o arquivo tlb e rode o comando o seguinte comando de registro:

set path="%path%";C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319
regasm /tlb:EscreveINI.tlb EscreveINI.dll /codebase

Em seguida no Delphi vá em Project, Import Type Library e busque o tlb e clique em Create Unit.

Em seguida basta utilizar assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  lEscreveArquivo: IEscreveIniClass;
begin
  lEscreveArquivo := CoEscreveIniClass.Create();
  lEscreveArquivo.Escrever;
end;

Espero ter ajudado!