dll çağırmada entry point not found hatası

[kazimates]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CPort;

type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Gel:string; // gel variableının string bir değerden alınacağını işaret eder
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function kartsor():string;stdcall;external 'Pmr232.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin

Label1.Caption:='';
Label2.Caption:='';

Gel := KartSor();

Label2.Caption:=Gel;

end;

end.

***********************

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

yukaridaki formda dışarıdan pmr232.dll isimli dll den string bir değeri sorgulamak istiyorum aslında dll i doğru şekilde fromda nasıl çağrılır emin olmamakla birlikte herhalde böyledir dedim ve yazdım bu arada programı run yaptığımda Project 1.exe entry point not found diyor ve altındada açıklamasında the procedure entry point kartsor could not be located in the dynamic link library pmr232.dll şeklinde çıkıyor bu durumda bu dll i nasıl çağırır ve bu dll çağrıldığında bana göndermesi gereken string değeri nasıl görebilirim.

sağlık, başarı ve mutluluk dileklerimle...