Conflito entre o Skin e o código para inserir imagem

[Geomar Canjundo]

Olá pessoal,

Estou a desenvolver um sistema na no cadastro é necessário inserir uma foto.

Durante o projeto adicionei ao meu sistema VCL Skin e reparei que após ter adicionado esse componente, sempre que carrego no botão para colocar a foto gera um erro de access violation.

Alguém pode me dizer o que se passa?

O código para inserir a imagem é:

var

Jpeg: TJPEGIMAGe;

begin

With OpenPictureDialog1 do

begin

If Execute then

begin

Jpeg:= TJPEGIMAGe.Create;

Jpeg.LoadFromFile(OpenPictureDialog1.FileName);

Clipboard.Assign(Jpeg);

Foto.Picture.Assign(Jpeg);

Foto.PasteFromClipboard;

Jpeg.free;

end;

[Churc]

Opa

Brother porque você está usando o Clipboard?

tente assim

var
  Jpeg: TJPEGIMAGe;
begin
  if OpenPictureDialog1.Execute do
  begin
    Jpeg:= TJPEGIMAGe.Create;

    Jpeg.LoadFromFile(OpenPictureDialog1.FileName);

    Foto.Picture.Assign(Jpeg);
    Jpeg.free;
  end;
end;

abrxx

[Geomar Canjundo]

Opa

Brother porque você está usando o Clipboard?

tente assim

var
  Jpeg: TJPEGIMAGe;
begin
  if OpenPictureDialog1.Execute do
  begin
    Jpeg:= TJPEGIMAGe.Create;

    Jpeg.LoadFromFile(OpenPictureDialog1.FileName);

    Foto.Picture.Assign(Jpeg);
    Jpeg.free;
  end;
end;

abrxx

Amigo Churc,

A sua dica valeu, testei-a funcionou tranquilo, se a aplicação não tiver Componente Skyn VCL. Ao adicionar um componente Sky VCL para o sistema, não carrega a fotografia e gera um erro Debugger Exception Notification Access Violation.

[Churc]

Humm estranho...

Mas então, funcionou certinho? era do jeito que voce queria?

[Geomar Canjundo]

Humm estranho...

Mas então, funcionou certinho? era do jeito que voce queria?

O código está certinho, mas mantém-se o conflito como Sky.

Tem alguma talvez de me recomendar outros componentes para Sky que não sejam o VCL?