Farbwerte aller Pixel eines Bildes in einem String speichern

pmw · Beiträge: 65

Hallo!

Ja, klar! Sonst würde die 2. Procedure ja auch nicht funktionieren, oder?

Programm:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

program Encoder;

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

{$R *.res}

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

DLL:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

library spf_en;

uses
  ShareMem, Dialogs, SysUtils, Classes;

{$R *.res}

( ... )

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Das es nicht funktioniert liegt daran, dass du Pic bereits freigegeben hast, und dann noch auf dessen Eigenschaften Width und Height zugreifst.

Zitat:

finally
pic.Free;
end;
output := input;
output := convert(filesize.Value,concolor.ItemIndex,pic.Width,pic.Height,output); // Fehlermeldung!

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme