Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=3753756 Mon, 18 Dec 2017 03:13:26 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=3753756
    procedure TForm1.Button5Click(Sender: TObject);
    var
      CY: TFPImageBitmap;
      i, j: Integer;
      Intf: TLazIntfImage;
    begin
      CY := TPNGImage.Create;
      CY.PixelFormat := pf32bit;
      CY.Canvas.Brush.FPColor:=colTransparent;
      CY.SetSize(300,300);
      CY.Canvas.FillRect(0,0,CY.Width-1,CY.Height-1);
      try
    //    CY.LoadFromFile('c:\proof.png');
        CY.Canvas.Brush.Style := bsClear;
        CY.Canvas.Pen.FPColor := ColRed;
        CY.Canvas.Pen.Width := 10;
        CY.Canvas.Ellipse(10,10,100,100);
        with CY.Canvas.Font do begin
            FPColor := ColBlue;
            PixelsPerInch := 300; /// always before height!
            Height := 32;
            Orientation := 1800;
            Name := 'PlayBill';
            Quality := fqCleartypeNatural;
        end;
     
        CY.Canvas.Brush.Style := bsImage;
        CY.Canvas.TextOut(230,230,'apexcol@gmail.com!');
     
        /// The plain bitmap has no Alpha, so we have
        /// to create an IntfImage, which passes the
        /// actual Canvas into an ABGR format that we
        /// control with TColors property.  After putting
        /// all the painted things the $FF on the Alpha
        /// position, we pass it back to the CY.Canvas
        Intf:=CY.CreateIntfImage;
        for i:=0 to pred(CY.Width) do
          for j:=0 to pred(CY.Height) do
            if Intf.TColors[i,j] > 0 then
              Intf.TColors[i,j]:=Intf.TColors[i,j] or $FF000000;
        CY.LoadFromIntfImage(Intf);
     
        Canvas.Draw(510,10,CY);
        CY.SaveToFile('pruebaPNG.png');
      finally
        CY.Free;
        Intf.Free;
      end;
    end;
]]> apexcol 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1520001 Wed, 11 Apr 2007 13:58:31 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1520001 Цитата itwork @
КАК на ФРИ сделать генерация чисел в картинку!(обычно такое делается для сайта против ботов(походу ))??? былоб хорошо если у кого есть какой пример

У меня есть пример на РНР, если нужен - могу выложить.

-Added
Цитата itwork @
Люди где можно почитать об Этих модулях (fpimage,fpcanvas,fpwritepng, fpwritejpeg,fpimgcanv)??
иЛИ КАК вы сами ихизучали??? :)

Сейчас переведем LCL-Help а там и до RTL с FPL доберемся ;) .]]> tm2studio 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509555 Tue, 03 Apr 2007 17:46:46 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509555 Цитата
What is the GD library? GD is an open source code library for the dynamic creation of images by programmers. GD is written in C, and "wrappers" are available for Perl, PHP and other languages. GD creates PNG, JPEG and GIF images, among other formats. GD is commonly used to generate charts, graphics, thumbnails, and most anything else, on the fly. While not restricted to use on the web, the most common applications of GD involve web site development.

есть модули и для паскаля ;)]]> e-moe 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509370 Tue, 03 Apr 2007 14:53:31 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509370 itwork 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509345 Tue, 03 Apr 2007 14:41:44 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509345 Цитата itwork @
иЛИ КАК вы сами ихизучали??? :)

я по исходникам смотрел...]]> e-moe 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509296 Tue, 03 Apr 2007 14:13:12 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1509296 иЛИ КАК вы сами ихизучали??? :)]]> itwork 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402476 Fri, 05 Jan 2007 18:09:52 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402476 Romtek, линии оно и у меня прекрасно рисует если закоментировать вывод текста.. И размер тоже правильно устанавливается...
А вот с текстом облом получается... Будем ждать новых версий...]]> e-moe 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402259 Fri, 05 Jan 2007 15:17:30 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402259
    procedure TFPPixelCanvas.DoTextOut (x,y:integer;text:string);
    begin
      NotImplemented;
    end;


А ведь именно эта функция вызывается при попытке вызвать
    canvas.TextOut(10,10,'Hello');
]]> volvo877 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402197 Fri, 05 Jan 2007 14:10:50 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1402197
    uses fpimage,fpcanvas,fpwritepng, fpwritejpeg,fpimgcanv;
     
    Var
      Image : TFPMemoryImage;
      Canvas : TFPimageCanvas;
     
    begin
      // Create image,
      Image:=TFPMemoryImage.Create(640,480);  // установка размера здесь
      Image.UsePalette:=False;
      // Create canvas.
      Canvas:=TFPImageCanvas.Create(Image);
      Canvas.Pen.Color:=colRed;
      Canvas.Ellipse(50,50,150,150);
      Canvas.Rectangle(50,50,150,150);
      // Free canvas
      Canvas.Free;
      Image.SaveToFile('myfile.png',TFPWriterPNG.Create); // Write as png
      Image.SaveToFile('myfile.jpg',TFPWriterPNG.Create); // Alternatively, write as jpg
      // Free Image.
      Image.Free;
    end.

Думаю, что установка фона делается проще, чем сложным алгоритмом заливки FloodFill...
Что-то не нашёл в документации описания класса TFPImageCanvas. :unsure:]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1400648 Thu, 04 Jan 2007 10:34:47 +0000 FPC/FCL/FPImage https://forum.sources.ru/index.php?showtopic=166843&view=findpost&p=1400648
    {$mode objfpc}{$H+}
     
    uses FPWritePNG,
         {$ifndef UseFile}classes,{$endif}
         FPImage,FPImgCanv, sysutils;
     
    var Img : TFPMemoryImage;
        Canvas : TFPImageCanvas;
        Writer : TFPCustomimageWriter;
     
    procedure Init;
    begin
      Writer := TFPWriterPNG.Create;
      img := TFPMemoryImage.Create(0,0);
      img.UsePalette:=false;
      img.SetSize(100,100);
      canvas := TFPImageCanvas.Create(img);
     
      canvas.brush := canvas.CreateBrush;
      canvas.brush.fpcolor:=FPColor(255,0,255);
      canvas.FloodFill(50,50); // Как залить поле заданным цветом?
     
      canvas.pen := canvas.createpen;
      canvas.pen.fpcolor := colGreen;
      canvas.line(0,0,10,10);
     
      canvas.font := canvas.CreateFont;
      canvas.font.name := 'Arial';
      canvas.font.size := 10;
      canvas.font.FPColor := colBlue;
      canvas.TextOut(10,10,'Hello'); // На этой строке runtime error :(
    end;
     
    procedure WriteImage;
    var t: string;
    begin
      t := ''; // параметры для сохранения файла
      with (Writer as TFPWriterPNG) do
        begin
          Grayscale := pos ('G', t) > 0;
          Indexed := pos ('I', t) > 0;
          WordSized := pos('W', t) > 0;
          UseAlpha := pos ('A', t) > 0;
        end;
      img.SaveToFile ('tmp.png', Writer);
    end;
     
    procedure Clean;
    begin
      Writer.Free;
      Canvas.Free;
      Img.Free;
    end;
     
    begin
        try
          Init;
          WriteImage;
          Clean;
        except
          on e : exception do
            writeln ('Error: ',e.message);
        end;
    end.
]]> e-moe 32-битные компиляторы