Dll Okuma Hatası

[CiTiZEN]

ini dosyaya yazdığım içindir sanırım char tanımlaması kabul etmiyor ansistring veya string kabul ediyo herneyse biraz daha uğraşıp yanlışımı bulamazsam dll den sadece yazma işlemi gerçekleştireceğim başka fikri olan yokmu ayrıca hocam size de çok teşekkürler.

[adelphiforumz]

asagidaki sekilde yapinca calisiyor

dll kaynak kodu

Kod: Tümünü seç

library Pxll;
uses
  SysUtils,
  Classes,
  Dialogs,
  inifiles,
  Registry;

var
  INIdosya:TIniFile;
{$R *.RES}
{ Standard Decryption algorithm - Copied from Borland}

function showmesaj():PChar;
var x: PChar;
begin
  INIDosya:= TIniFile.Create('C:\deneme.ini');
  x:= PChar(INIDosya.ReadString('deneme1','deneme','olmadı'));
  Result := x;
end;

Exports
  showmesaj;
end.

exe kaynak kodu

Kod: Tümünü seç

unit uxdll;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Registry, ComCtrls, ExtCtrls, Db, ADODB, DBCtrls, Buttons,
  Grids, DBGrids;

Const
Reg  = 'Pxll.dll';

  function showmesaj    ()       : PChar;  External Reg name 'showmesaj';
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.Caption := showmesaj();
end;

end.

dfm kaynak kdu

Kod: Tümünü seç

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 870
  Height = 500
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 46
    Top = 46
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Button1: TButton
    Left = 172
    Top = 74
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end

[CiTiZEN]

Tamamdır hocam bu sefer hatasız oldu çok çok teşekkür ederim ayrıca emeği geçen ve yardımcı olan arkadaşlarada çok teşekkürler.
Kolay gelsin.