Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 27-07-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Por si todavía te interesa convertir un buffer en un bitmap, aquí te dejo un ejemplo:

Código Delphi [-]
var
  Buffer: array[0..255,0..303] of Byte; // Cambie la forma de declarar el array
  Bitmap: TBitmap;
  i,j: Integer;
  P: PByteArray;
begin
  // Las 3 lineas siguientes son solo para llenar el buffer, en tu caso seria getfinder(0,@buffer);
  for i:= 0 to 255 do
    for j:= 0 to 303 do
      Buffer[i,j]:= i xor j;

  Bitmap:= TBitmap.Create;
  try
    Bitmap.PixelFormat:= pf8bit;
    Bitmap.Width:= 256;
    Bitmap.Height:= 304;
    for j:= 0 to Bitmap.Height - 1 do
    begin
      P:= Bitmap.ScanLine[j];
      for i:= 0 to Bitmap.Width - 1 do
        P[i]:= Buffer[i,j];
    end;
    // Aqui guardamos el Bitmap en disco, pero tambien podemos mostrarlo en un TImage o guardarlo en la base de datos.
    Bitmap.SaveToFile('c:\1.bmp');
  finally
    Bitmap.Free;
  end;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Array Dinamico VRO Varios 6 14-06-2005 12:40:16
Menu con array JulioGO PHP 1 07-02-2005 20:40:56
Como Asignar Variable Tipo Array de Tform a otro Array del Mismo tipo morfeo21 Varios 5 17-08-2004 17:39:51
return un Array rjtostado Oracle 0 15-04-2004 04:44:55
Array esquerda21 Varios 7 26-02-2004 19:27:21


La franja horaria es GMT +2. Ahora son las 08:28:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi