MyCity » Pascal -> Delphi » Sliku od kanvasa

Sliku od kanvasa

Napisano na dan: 1.8.2006

Sliku od kanvasa
Sledeća strana Pagination

Idi na vrh

Poslao: 01 Avg 2006 11:16
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

Kako da npravim jpg sliku od necega sto nacrtam u kanvasu



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 01 Avg 2006 12:43
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Evo, ako mozes da razumes.

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


var   mf                     : TMetaFile;   mfc                    : TMetaFileCanvas;   fm                     : TdtmGerPosHie;   FileName               : string;   ms                     : TMemoryStream; begin   FTable.Close;   FTable.EmptyTable;   FTable.open;   chart.BeginUpdate;   chart.FullExpand;   chart.EndUpdate;   ms := TMemoryStream.Create;   MainBitmap := graphics.TBitmap.Create;   try     mf := TMetaFile.Create;     try       mf.Width := chart.fullwidth;       mf.height := chart.fullheight;       mfc := TMetaFileCanvas.Create(mf, 0);       try         Chart.PrintToCanvas(mfc);       finally         mfc.free; // Copy Image to MF       end;       MainBitmap.Height := mf.Height;       MainBitmap.Width := mf.Width;       MainBitmap.Canvas.Draw(0, 0, mf);     finally       mf.free;     end;     FImageWidth := MainBitmap.Width;     FImageHeight := MainBitmap.height;     if ((FImageWidth > FCutWidth) or (FImageHeight > FCutHeight)) then CutImageAndSave else     begin       ms.clear;       jpg.Assign(MainBitmap);       jpg.SaveToStream(ms);       ms.position := 0;       FTable.Append;       TBlobField(FTable.Fields[0]).LoadFromStream(ms);       FTable.Fields[1].asString := GetDisplayString('#1605');       FTable.Post;     end; .....



Poslao: 01 Avg 2006 17:02
Idi na vrh
offline
  • badam 
  • Novi MyCity građanin
  • Pridružio: 26 Maj 2006
  • Poruke: 9

moze i krace TCanvas -> TBitmap -> TJPEGImage

procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap;       jpg:TJPEGImage; begin   bmp:=TBitmap.Create;   try     jpg:=TJPEGImage.Create;     try       bmp.Width:=ClientWidth;       bmp.Height:=ClientHeight;       bmp.Canvas.CopyRect(ClientRect,Canvas,ClientRect);       jpg.Assign(Bmp);       jpg.SaveToFile('c:\aa.jpg')     finally       jpg.Free     end   finally     bmp.Free   end end;

Poslao: 01 Avg 2006 17:34
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

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

Poslao: 01 Avg 2006 18:35
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Mislis da je u C++ jednostavnije? eheheheh

Poslao: 01 Avg 2006 18:48
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

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


Nazalost jel delfijeva sintaksa je mnogo lepsa....



HH

Poslao: 01 Avg 2006 20:23
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Lepota je relativna stvar

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

MyCity » Pascal -> Delphi » Sliku od kanvasa

Ko je trenutno na forumu
 

Ukupno su 1143 korisnika na forumu :: 89 registrovanih, 8 sakrivenih i 1046 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 19602 - dana 30 Mar 2026 00:11

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 037, _Rade, abramac, ajo baba, Apok, as2025, berste23, Blair, bojan_t, Bojcca, bojcistv, boranin45, Boris BM, braca57, cekic, celt, CikaKURE, d.arsenal321, dejan1972, draganl, DrNeoCortex, dule10savic, FOX, goran.vvv, ilija kz, IvanM1984, ivran064, JK, joca83, jodzula, Jovan1983, Kajzer Soze, Kamov, Kichma, Kobrim, kreker, Kudun, ladro, ljubsz, lucianovercetti, marre, MaschinenPistole, mgolub, mikrimaus, mile.ilic75, MiroslavD, mishkooo, MK10, moldway, MrNo, muaddib, nebkv, nenooo, nikoli_ca, nnovakis, nobutado, operniki, paladin71, Papadubi, Parker, Pilence, Plavi1, proka89, proljece, raf87, RajkoB, razumihin, ruma, Sharpshooter, Sin Boskic, skok, sluga, SpaDej, sspp, tachinni, tetka, TRZH92, Uros Cuore Sportivo, v0idmp3, v82, Vanderx, vathra, Vatreni Zmaj, vuksa72, zgoljo, zlaya011, Zmajac, zubri, zukara