OTServ



Você não está conectado. Conecte-se ou registre-se

Duas Produces De Imagens

Ir em baixo  Mensagem [Página 1 de 1]

1 Duas Produces De Imagens em 19/4/2011, 13:09

Dark Side

avatar


Venho aqui hoje mostrar para vocês dois códigos muito interessantes.
Como criptografar imagens em Delphi e Transformar ícone em um bitmap :D

Vamos ao código:

Criptografando uma imagen

A Produce:

Código:
procedure cripto(const BMP: TBitmap; Key: Integer);
var
  BytesPorScan: Integer;
  w, h: integer;
  p: pByteArray;
begin
  try
        BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
        Integer(BMP.ScanLine[0]));
  except
        raise Exception.Create('Erro !');
  end;
  RandSeed := Key;
  for h := 0 to BMP.Height - 1 do
  begin
        P := BMP.ScanLine[h];
        for w := 0 to BytesPorScan - 1 do
          P^[w] := P^[w] xor Random(256);
  end;
end;
Usando a Produce:

No evento onClick de algum botão

Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
  cripto(Image1.Picture.Bitmap, 1);
  Image1.Refresh;
end;

Aqui nos encriptamos uma imagem que estava no form.


Tranformando Icone em Bitmap


Código:
VAR
Pic : TPicture;
TI : TIcon;
BEGIN
TI := TIcon.Create;
TI.Handle := ExtractIcon(HInstance, FileNameBuf, 0);
Pic := TPicture.Create;
Pic.Icon := TI;
Image1.Picture := Pic; {TImage}
BitBtn1.Glyph := TBitmap.Create;
WITH BitBtn1.Glyph DO
BEGIN
width := TI.Width;
Height := TI.Height;
Canvas.Draw(0, 0, Pic.Icon);
END;
END;

Coloque isso em um botão e crie uma imagebox com a imagem q se quer transformar



Ola, Convidado Gostou ? Da REP++


[Você precisa estar registrado e conectado para ver este link.]

Spoiler:

http://www.otserver.forumeiros.com

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum