Форум программистов [Powered by Invision Power Board]

Код


library Project1;

uses ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, {..} StdCtrls, 

ComCtrls;

{$R *.res}

Function HashF(Fname :string) :String; export; stdcall;
begin
 {..}
end;

Function Crypt_file(inFname,outFname,password :String; algNum :integer) :Boolean; export; stdcall;
begin
 {..}
end;

exports Crypt_file, HashF;

begin
end.

Код


class MyDllImport
{
public:

[DllImport("your_dll.DLL",EntryPoint="HashF", CharSet=CharSet::Ansi,ExactSpelling=true, CallingConvention=CallingConvention::StdCall)]
static String^ HashF(String^ Fname);


[DllImport("your_dll.DLL",EntryPoint="Crypt_file", CharSet=CharSet::Ansi,ExactSpelling=true, CallingConvention=CallingConvention::StdCall)]
static bool Crypt_file(String^ inFname, String^ outFname, String^ password, int algNum);

};

Код


#pragma once
namespace FormApplication1 {

    using namespace System;
    using namespace System::ComponentModel;
    using namespace System::Collections;
    using namespace System::Windows::Forms;
    using namespace System::Data;
    using namespace System::Drawing;
    using namespace System::Runtime::InteropServices;//Не забудь - сдесь лежит DllImportAttribute

    public ref class Form1 : public System::Windows::Forms::Form
    {
    public:
        Form1(void)
        {
            InitializeComponent();
            //
            //TODO: Add the constructor code here
            //
        }
        //Импорт
        [DllImport("your_dll.DLL",EntryPoint="HashF", CharSet=CharSet::Ansi,ExactSpelling=true, CallingConvention=CallingConvention::StdCall)]
        static String^ HashF(String^ Fname);

        [DllImport("your_dll.DLL",EntryPoint="Crypt_file", CharSet=CharSet::Ansi,ExactSpelling=true, CallingConvention=CallingConvention::StdCall)]
        static bool Crypt_file(String^ inFname, String^ outFname, String^ password, int algNum);

    //Использование
    private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) {
                 String^ str = gcnew String("Hello, world");
                 HashF(str);
             }
        ...
    };
}

Цитата

а что, .net знает про такое чудо как delphi? :eek: и прямо так и маппит егонные стринги в свой System.String?