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 618 korisnika na forumu :: 70 registrovanih, 4 sakrivenih i 544 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: acatomic, AirSremac, alternator, Apok, Asteker, bolenbgd, boromir, Bubimir, bukefal, CHARLIE JA., cikadeda, Coabelgrade, d.arsenal321, Dannyboy, darionis, dejan1972, dekan.m, Despot1, DH, Djokislav, FileFinder, goran.vvv, GreenMan, GveX, ILGromovnik, Imperator_Aleksandr_lll, jodzula, kinderpingvin, koneks, Levi, Limeni91, marko79, MaschinenPistole, Medojed, menges, mercedesamg, Miler88, Mićko, mp7, mux, Mzee, nebojsag, nenad81, nixos, ozzy, panonski mornar, pein, pirke96, Pohovani_00, Polemarchoi, precan, proka89, promajauglavi, Radoslava, radza1, RommelBL, ruma, Sass Drake, shlauf, SlaKoj, Smiljkovich, taomaster, theNedjeljko, ujke, VanZan, vidra1, VJ, VNVK, yrraf, zlaya011