[delphi-br] Manipular JPG
Pessoal Vocês conhecem algum componente de manipulação de JPG? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Redimensionando JPEG JPG
Oi pessoal tudo bom!?
Estou comm um probleminha com Jpeg.. eu estou precisando fazer um programinha
que pega uma imagem Jpeg e faz uma copia dela mesma s que com dois tamanhos
diferentes, eu estava testando mas fica dando um erro: Cannot change the size
of a JPEG image alguem ja pssou por isso? Vou colocar meu script aqui:
procedure TForm1.Button1Click(Sender: TObject);
var
Arquivo: String;
JPeg, Jpg: TJPegImage;
begin
Arquivo := 'c:/gato.jpg';
JPeg := TJPegImage.Create;
try
JPeg.LoadFromFile(Arquivo);
Jpg := TJPegImage.Create;
try
Jpg.Assign(JPeg);
Jpg.Width := 120;
Jpg.Height := 120;
Jpg.SaveToFile(ChangeFileExt('c:/a', '.jpg'));
finally
Jpg.Free;
end;
finally
JPeg.Free;
end;
end;
Se eu fao isso com BMP da totalmente certo... ate mais e obrigado!
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Redimensionando JPEG JPG
Naum esta esta, porque se eu tiro estas duas linhas
Jpg.Width := 120;
Jpg.Height := 120;
funciona perfeitamente, mas eu mudei so para ter certeza, e nada..
valew
- Original Message -
From: Alosi yarru
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 16, 2005 11:26 AM
Subject: Re: [delphi-br] Redimensionando JPEG JPG
o problema no est na barra que no est invertida?
- Original Message -
From: Isaac Boratino
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 16, 2005 11:14 AM
Subject: [delphi-br] Redimensionando JPEG JPG
Oi pessoal tudo bom!?
Estou comm um probleminha com Jpeg.. eu estou precisando fazer um
programinha que pega uma imagem Jpeg e faz uma copia dela mesma s que com dois
tamanhos diferentes, eu estava testando mas fica dando um erro: Cannot change
the size of a JPEG image alguem ja pssou por isso? Vou colocar meu script aqui:
procedure TForm1.Button1Click(Sender: TObject);
var
Arquivo: String;
JPeg, Jpg: TJPegImage;
begin
Arquivo := 'c:/gato.jpg';
JPeg := TJPegImage.Create;
try
JPeg.LoadFromFile(Arquivo);
Jpg := TJPegImage.Create;
try
Jpg.Assign(JPeg);
Jpg.Width := 120;
Jpg.Height := 120;
Jpg.SaveToFile(ChangeFileExt('c:/a', '.jpg'));
finally
Jpg.Free;
end;
finally
JPeg.Free;
end;
end;
Se eu fao isso com BMP da totalmente certo... ate mais e obrigado!
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do
Servio do Yahoo!.
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do Servio
do Yahoo!.
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] TStringList
Bom Dia!! Pessoal eu estou com um probleminha aqui... Eu to precisando armazenar algumas Strings dentro de um StringList, só que não posso inserir neste StringList valores que eu ja tenho dentro do StringList, vocês podem me dizer como faço para saber se um determinado valor existe dentro do StringList? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
