[AJUDA] Criar imagem corel ao iniciar aplicativo

[Rafael Pasc.]

É o seguinte caros companheiros, to dando uma implementada em um programa aqui e to com uma dúvida em relação ao Delphi + Corel.

Eu tenho um botão abrir que funciona corretamente, e cria a minha imagem .cdr dentro do ole container do delphi.

Agora a minha dúvida é a seguinte. Ao abrir esse arquivo, o usuário salva a imagem .cdr em um banco de dados ( Salva o caminho dela ), e eu queria que ao abrir o programa, ele carregasse ( criasse ) no ole container a imagem .cdr já salva no banco.

Queria fazer mais ou menos assim:

IF ARTE_COREL.Text <> '' then

try

olecontainer.createfromfile(Filename,false); [ Essa linha está errada ]

except

end;

Eu precisaria de criar o objeto a partir do caminho salvo no DBEDIT(ARTE_COREL), mas eu só sei criar o arquivo quando eu mando abrir ele pelo botão mesmo ( Igual está na linha errada do código acima ). Alguém tem alguma sugestão ou solução?

Fico grato com qualquer tipo de ajuda!

[Jhonas]

Agora a minha dúvida é a seguinte. Ao abrir esse arquivo, o usuário salva a imagem .cdr em um banco de dados ( Salva o caminho dela ), e eu queria que ao abrir o programa, ele carregasse ( criasse ) no ole container a imagem .cdr já salva no banco.

Não me recordo qual a sintaxe para o Corel , mas o exemplo abaixo serve para o Paintbrush

voce usa a janela para procurar a figura e ela passa para o OleContainer .... onde esta escrito 'paint.picture' deve ser colocado a sintaxe para o Corel, mas não me recordo.

procedure TForm1.Button1Click(Sender: TObject);
begin
   OleContainer1.CreateObject('paint.picture', False);
   OleContainer1.AllowInPlace := True;
   OleContainer1.DoVerb(ovPrimary);

   if OpenPictureDialog1.Execute then
      begin
         Screen.Cursor := crHourGlass;
         try
            OleContainer1.CreateObjectFromFile(OpenPictureDialog1.FileName, false);
            OleContainer1.DoVerb(0);
            OleContainer1.Run;
         finally
            Screen.Cursor := crDefault;
         end;
      end;
end;

abraço

[Rafael Pasc.]

Jhonas, obrigado pela ajuda cara... Espero que você saiba minha próxima dúvida!

Amigos, eu descobri como faz aqui!

olecontainer.createfromfile(arte_corel.text,false); SIMPLES ASSIM!

Agora a minha dúvida é a seguinte... Estou mandando salvar o arquivo corel editado de dentro do aplicativo... ele até abre o diálogo pra salvar e tudo, mas parece que ele não exporta a imagem direito =\

To usando OLECONTAINER1.SAVETOFILE(FILENAME);

O que será?

Editado Fevereiro 20, 2010 por Rafael Pasc.

[Jhonas]

Agora a minha dúvida é a seguinte... Estou mandando salvar o arquivo corel editado de dentro do aplicativo... ele até abre o diálogo pra salvar e tudo, mas parece que ele não exporta a imagem direito =\

To usando OLECONTAINER1.SAVETOFILE(FILENAME);

exemplos:

OleContainer1.SaveToFile(SavePictureDialog1.FileName);

OleContainer1.SaveToFile (SaveDialog1.FileName);

OleContainer1.SaveToFile(TempDir+'\Temp File'+FileExtension);

OleContainer1.SaveToFile('c:\windows\desktop\fig.bmp');

exemplo completo:

http://www.marcocantu.com/code/md6htm/Olecont.htm

abraço

[Rafael Pasc.]

Eu usei os exemplos pra salvar o objeto do olecontainer que você me passou. Até que funciona, mas na hora que eu mando abrir a imagem, ela está em branco! O procedimento que usei está logo abaixo:

procedure TCadastro01.SpeedButton9Click(Sender: TObject);

begin

with SaveDialog1 do

begin

if (Length(FileName) = 0) or (Sender = SaveAs1) then

begin

if Execute then

begin

OleContainer1.SaveToFile(FileName);

end

end

else

OleContainer1.SaveToFile(FileName);

end;

end;

[Jhonas]

Eu usei os exemplos pra salvar o objeto do olecontainer que você me passou. Até que funciona, mas na hora que eu mando abrir a imagem, ela está em branco!

Experimento o SavePictureDialog1

procedure TCadastro01.SpeedButton9Click(Sender: TObject);
begin
with SavePictureDialog1 do
begin
  if (Length(FileName) = 0) or (Sender = SaveAs1) then
  begin
    if Execute then
      begin
         OleContainer1.SaveToFile(SavePictureDialog1.FileName);
      end
  end
else
   OleContainer1.SaveToFile(SavePictureDialog1.FileName);
end;

end;

abraço

[Rafael Pasc.]

Eu usei os exemplos pra salvar o objeto do olecontainer que você me passou. Até que funciona, mas na hora que eu mando abrir a imagem, ela está em branco!

Experimento o SavePictureDialog1

procedure TCadastro01.SpeedButton9Click(Sender: TObject);
begin
with SavePictureDialog1 do
begin
  if (Length(FileName) = 0) or (Sender = SaveAs1) then
  begin
    if Execute then
      begin
         OleContainer1.SaveToFile(SavePictureDialog1.FileName);
      end
  end
else
   OleContainer1.SaveToFile(SavePictureDialog1.FileName);
end;

end;

abraço

Tentei fazer isto e não deu certo! Estou perdendo os cabelos já de tanto pensar! :wacko:

Quando eu clico duas vezes dentro do OleContainer, ele me exibe o ambiente de trabalho do Corel Draw X3 ( A distribuição que eu tenho aqui ). Mas eu não consigo salvar nem assim... A opção fica desativada :S

[Rafael Pasc.]

Será que não tá faltando colocar nada na minha declaração de USES não? O Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa... Só não consigo mesmo salvar a imagem que está no delphi. Segue abaixo a minha declaração USES

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls,

Buttons, TabNotBk, FileCtrl, ColorGrd, ComCtrls, ExtDlgs, JPEG ,Clipbrd,

Menus, OleCtnrs;

Alguma luz?

[Jhonas]

Será que não tá faltando colocar nada na minha declaração de USES não? O Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa... Só não consigo mesmo salvar a imagem que está no delphi.

Alguma luz?

Percebeu que voce mesmo encontrou a resposta na sua indagação ??

Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa

Para salvar a imagem que está no objeto Olecontainer, voce precisa passar a imagem do olecontainer para o clipboard, do clipboard para um TImage e deste salvar no disco ... e pode neste momento converter a imagem para Jpeg para ficar menor.

abraço

[Rafael Pasc.]

Será que não tá faltando colocar nada na minha declaração de USES não? O Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa... Só não consigo mesmo salvar a imagem que está no delphi.

Alguma luz?

Percebeu que voce mesmo encontrou a resposta na sua indagação ??

Clipboard funciona perfeitamente... Consigo copiar e colar do delphi para o corel e vice-versa

Para salvar a imagem que está no objeto Olecontainer, voce precisa passar a imagem do olecontainer para o clipboard, do clipboard para um TImage e deste salvar no disco ... e pode neste momento converter a imagem para Jpeg para ficar menor.

abraço

Muito obrigado pela luz! Não sei ainda se vai resolver porque eu tenho que salvar a imagem em .CDR mesmo. Assim que eu chegar em casa do serviço eu testo. Se der tudo certo eu posto aqui e a gente fecha o tópico como resolvido!

Mais uma vez Jhonas, Obrigado! Até!

[Rafael Pasc.]

Estou tentando fazer assim:

procedure TCadastro01.SpeedButton9Click(Sender: TObject);

var imgcorelsalvar: timage;

begin

OleContainer1.Copy;

imgcorelsalvar:= TImage.Create(cadastro01);

imgcorelsalvar.Assign(Clipboard);

imgcorelsalvar.Picture.SaveToFile('d:\teste.cdr');

end;

Mas quando eu clico no speedbutton pra salvar, ele fala que eu não posso atribuir o conteúdo do clipboard para um TIMAGE. Já tentei com Tgraphic e com Tpicture e também não deu.

E Jhonas, eu realmente preciso salvar essa imagem em .cdr . Se você puder me dar mais uma ajudinha eu fico grato! Abraço!

[Jhonas]

E Jhonas, eu realmente preciso salvar essa imagem em .cdr . Se você puder me dar mais uma ajudinha eu fico grato! Abraço!

Veja se esses link ajudam

http://www.djpate.freeserve.co.uk/AutoCDrw.htm

http://cad1.software.informer.com/download...lphi-coreldraw/

http://delphi.about.com/od/vclusing/a/tclipboard.htm

OBS: acho que não será tão facil achar uma solução....

com relação a esse comando:

OleContainer1.SaveToFile(SavePictureDialog1.FileName);

verifiquei que ele realmente salva o conteudo do olecontainer ( a imagem ), entretanto voce não consegue visualizar o arquivo salvo porque no novo arquivo é incluido um código ( no inicio ) que não consegui identificar qual a função... mas a imagem esta lá ... e o cabeçalho desse arquivo não é identificado como sendo uma figura ou imagem.

abraço