Sliku od kanvasa

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da npravim jpg sliku od necega sto nacrtam u kanvasu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo, ako mozes da razumes.

Uglavnom, prebacis u MetaFileCanvas, koji kopira u MetaFile
Iz MetaFajla mozes da prebacis u TBitmap, iz Bitmapa u TJpegImage

0. var
1.   mf                     : TMetaFile;
2.   mfc                    : TMetaFileCanvas;
3.   fm                     : TdtmGerPosHie;
4.   FileName               : string;
5.   ms                     : TMemoryStream;
6.  
7. begin
8.   FTable.Close;
9.   FTable.EmptyTable;
10.   FTable.open;
11.   chart.BeginUpdate;
12.   chart.FullExpand;
13.   chart.EndUpdate;
14.   ms := TMemoryStream.Create;
15.   MainBitmap := graphics.TBitmap.Create;
16.   try
17.     mf := TMetaFile.Create;
18.     try
19.       mf.Width := chart.fullwidth;
20.       mf.height := chart.fullheight;
21.       mfc := TMetaFileCanvas.Create(mf, 0);
22.       try
23.         Chart.PrintToCanvas(mfc);
24.       finally
25.         mfc.free; // Copy Image to MF
26.       end;
27.       MainBitmap.Height := mf.Height;
28.       MainBitmap.Width := mf.Width;
29.       MainBitmap.Canvas.Draw(0, 0, mf);
30.     finally
31.       mf.free;
32.     end;
33.     FImageWidth := MainBitmap.Width;
34.     FImageHeight := MainBitmap.height;
35.     if ((FImageWidth > FCutWidth) or (FImageHeight > FCutHeight)) then CutImageAndSave else
36.     begin
37.       ms.clear;
38.       jpg.Assign(MainBitmap);
39.       jpg.SaveToStream(ms);
40.       ms.position := 0;
41.       FTable.Append;
42.       TBlobField(FTable.Fields[0]).LoadFromStream(ms);
43.       FTable.Fields[1].asString := GetDisplayString('#1605');
44.       FTable.Post;
45.     end;
46. .....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

moze i krace TCanvas -> TBitmap -> TJPEGImage

0. procedure TForm1.Button1Click(Sender: TObject);
1. var bmp:TBitmap;
2.       jpg:TJPEGImage;
3. begin
4.   bmp:=TBitmap.Create;
5.   try
6.     jpg:=TJPEGImage.Create;
7.     try
8.       bmp.Width:=ClientWidth;
9.       bmp.Height:=ClientHeight;
10.       bmp.Canvas.CopyRect(ClientRect,Canvas,ClientRect);
11.       jpg.Assign(Bmp);
12.       jpg.SaveToFile('c:\aa.jpg')
13.     finally
14.       jpg.Free
15.     end
16.   finally
17.     bmp.Free
18.   end
19. end;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

verovatno

a mozda mogu da citam kanvas piksel po piksel i omah dodam zaglavlje i ostalo prepisem kao piksele samo moram da ......


ionako nije bitno I will C++ as others

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mislis da je u C++ jednostavnije? eheheheh

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Definitivno nije ali sta sutra kada delfija vise nebude...


Nazalost jel delfijeva sintaksa je mnogo lepsa....



HH

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Lepota je relativna stvar

Ali... prekinimo sa Off-topic da ne bih morao sam sebe da banujem, a i tebe
Znaci, ispod ove poruke samo ono sto je vezano za temu.