Dll Kulanmak İçin Yardımcı Ola Bilirmisiniz

[subhan]

ben bu dll dosyası ile .ico dosyalarını .bmp yapmaya çalışıyorum neden .dll dosyası
çalışmıyor program çalışdıkdan sonra hata veriyor

Kod: Tümünü seç

library Icon2BMP;


uses
  SysUtils,
  Graphics,
  Classes;

function Icon2BMP(CONST FileName: TFileName):TBitmap;export;
  var
  Icon : TIcon;
  Bitmap : TBitmap;
begin
  Icon := TIcon.Create;
  Bitmap := TBitmap.Create;
  Icon.LoadFromFile(FileName);
  Bitmap.Width := Icon.Width;
  Bitmap.Height := Icon.Height;
  Bitmap.Canvas.Draw(0, 0, Icon );
  Bitmap.Assign(Icon);
  Result:=Bitmap;
  Icon.Free;
  Bitmap.Free;
end;

Exports
Icon2BMP;
{$R *.res}
begin
end


function Icon2BMP(Const FileName:TFileName) :TBitmap;far;external 'C:\New Folder\Icon2BMP.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
a : TBitmap;
begin
a:= Icon2BMP('C:\Q.ico');
a.SaveToFile('C:\d.bmp');
end;

[CiTiZEN]

Projenin .exe sinde kullandığın kod ile aldığın hatayıda yazarsan daha etkili yardım alabilirsin

[mehmetcan]

Kodu denemedim ama fonksiyonda result tan sonra bitmap i free etme, döndürdügün deger boşalır ve bitmap geçersiz olur. Icon u free edebilirsin, o bir daha kullanılmıyor.

[subhan]

Projenin .exe sinde kullandığın kod ile aldığın hatayıda yazarsan daha etkili yardım alabilirsin

buyur video olarak kayıt etdim

Hatta.rar

(167.99 KiB) 112 kere indirildi

[CiTiZEN]

Kodu denemedim ama fonksiyonda result tan sonra bitmap i free etme, döndürdügün deger boşalır ve bitmap geçersiz olur. Icon u free edebilirsin, o bir daha kullanılmıyor.

Bu öneriyi denediniz mi?

[subhan]

Kodu denemedim ama fonksiyonda result tan sonra bitmap i free etme, döndürdügün deger boşalır ve bitmap geçersiz olur. Icon u free edebilirsin, o bir daha kullanılmıyor.

Bu öneriyi denediniz mi?

evet bunu denedim olmadI

bie zahmet siz deneye bilirmisiniz

[Z.D.]

Kod: Tümünü seç

  function Icon2BMP(const FileName: TFileName): TBitmap; export;
  var
    Icon:   TIcon;
    Bitmap: TBitmap;
  begin
    Icon   := TIcon.Create;
    Bitmap := TBitmap.Create;
    Icon.LoadFromFile(FileName);
    Bitmap.Width  := Icon.Width;
    Bitmap.Height := Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon);
    //  Bitmap.Assign(Icon);
    Result := Bitmap;
    Icon.Free;
    //Bitmap.Free;
  end;

bu şekilde deneyebilirsin

[sabanakman]

Result:=Bitmap;
Icon.Free;
Bitmap.Free;

Result'a verdiğin Bitmap'i yok edersen hata alman son derece normal. Yok edilen nesneleri daha sonra kullanamazsın.

[ikutluay]

Result:=Bitmap;
Icon.Free;
Bitmap.Free;

Result'a verdiğin Bitmap'i yok edersen hata alman son derece normal. Yok edilen nesneleri daha sonra kullanamazsın.

Bu iyi DLL ile yapmanında ne kadar gerekli olduğu tartışılır. harici bir dll olsa tamam diyeceğim ama bu konu biraz fantaziye kaçmış sanki. sonuçta hazır libarary varsa bunu unit yapmanın neresi sakıncalı.

ben kendi şahsımda barkod, port vs cihazlar gerektirmedikçe işimi DLL olmadan çözme taraftarıyım.

hataya gelince zaten DLL den değil kod mantığından görünmekte ... şaban üstad güzel yakalamış.

[sabanakman]

@Z.D. gereken satırları verdiği kodlarda kırpmış ama @subhan için açıklama yapmak iyi olur diye düşündüm.

[Z.D.]

Evet üstatlar zaten sorunun neden kaynaklandığını belirtmiş, ben çok fırsatçıyım sanırım Birde dll kullanılırken dikkat edilmesi gereken nokta veri tipleridir. string yerine pchar veya widestring kullanılabilir, çünkü dönüşümlerde memoryden alınan yerler, dll free edildikten sonra ana programdan adreslenen kısımlar tekrar free edilmeye çalışılır, bu exceptionlara neden oluyor.

neyse iftar oldu, herkese hayırlı ramazanlar