Zapis Chart do pliku

J9
  • Rejestracja:ponad 15 lat
  • Ostatnio:około 14 lat
0

Witam wszystkich, mój programik pobieta kilka liczb z pliku, i rysuje do nich wykres za pomoca komponentu Chart. A teraz mam problem z zapisaniem gotowego wykresu do pliku ?. Czy wie ktos jak to zrobic ?. Jest polecenie SaveChartToFile ale nie bardzo potrafie sie nim posłużyc i jak go dodać. Prosze o pomoc.

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series, OleCtrls, VCFI;

type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TBarSeries;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
plik: TextFile;
i:integer;
wartosc:string;

begin
AssignFile(plik,'C:\liczby.txt');
Reset(plik);
i:=0;

with Series1 do
begin
while not eof(plik) do
begin
i:=i+1;
readln(plik,wartosc);
Add(StrToInt(wartosc),IntToStr(i),clRed);
end;
end;
end;
end.


JAGUAR
cimak
  • Rejestracja:ponad 22 lata
  • Ostatnio:ponad 9 lat
  • Postów:1668
0

chodzi Ci o grafike? obrazek wykresu?

J9
  • Rejestracja:ponad 15 lat
  • Ostatnio:około 14 lat
0

Tak chodzi mi o grafike o obrazek wykresu, to co sie pokaze na wykresie zeby zapisac do pliku graficznego jpg bmp obojętne wsumie. Jakies propozycje ?


JAGUAR
P2
  • Rejestracja:ponad 18 lat
  • Ostatnio:około 14 lat
0

Zeby zapisać TChart do pliku graficznego ja zrobiłem tak:

Kopiuj
procedure ZapiszChartDoPliku(chart: TChart;nazwaPliku:string);
var obr  : TBitmap;
begin
obr := TBitmap.Create;
obr.Assign( chart.TeeCreateBitmap);
obr.SaveToFile(nazwaPliku);
obr.free;
end;

Powyższy kod powinien zapisać wykres do pliku bmp
Pozdrawiam

J9
  • Rejestracja:ponad 15 lat
  • Ostatnio:około 14 lat
0

Z czasem doszedłem do tego ze wystarczy użyć polecenia:

Chart1.SaveToBitmapFile('wykres.jpg');

mozna uzyc jpge i inne


JAGUAR

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.