CONFIGURAR RESOLUCAO DE IMAGEM JPG EM VB6

CLEBERBALMEIDA 11/08/2013 15:51:02
#427405
Amigos, preciso pegar uma imagem que está em uma pasta do meu computador e através do vb6, alterar a resolução dessa imagem para 1600 x 1000 pixels, após isso, salvar essa imagem na mesma pasta, substituindo a que estava com a resolução anterior, com mesmo nome e tudo.

A questão de carregar a imagem, consigo normal, em um objeto image. só preciso agora, salvar essa imagem na resolução 1600 x 1000 mesmo.
MARCELO.TREZE 12/08/2013 09:29:03
#427413
Você pode usar dois PictureBoxes, como demostrado abaixo:



Picture1.Picture = LoadPicture(<Arquivo da imagem original>)


Picture2.Width = 1000 * Screen.TwipsPerPixelX
Picture2.Height = 1600 * Screen.TwipsPerPixelY
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height


Call SavePicture(Picture2.Image, <Arquivo destino>)




Carregue a imagem original no primeiro PictureBox, ajuste o tamanho do segundo PictureBox para o tamanho desejado (e tenha certeza que a propriedade AutoRedraw seja True), use o método PaintPicture () para produzir a nova imagem, e salve a imagem.
GABRIEL 12/08/2013 11:16:30
#427417
So tem um problema, o savepicture so trabalha com BMP, para jpg precisará de uma ocx
MARCELOSN 12/08/2013 12:52:23
#427421
Ba tarde

eu uso esta DLL para conversão
No caso a troca para a versão JPG e:
BMPToJPG txtLocal.Text & NomeImagem & [Ô].bmp[Ô], txtLocal.Text & [Ô]\imagem\[Ô] & NomeImagem & [Ô].JPG[Ô], 40

o numero 40 será usado para qualidade da imagem JPG
CLEBERBALMEIDA 28/08/2013 20:53:21
#428257
MarceloSN, como faço para usar essa dll, nunca fiz isso, tenho que registrar? tenho que incluir alguma coisa no Visual Basic 6? e como faço isso ai?

estou gerando a imagem pelo:

SavePicture Picture1.Image, App.Path & [Ô]\Imagens\[Ô] + [Ô]01[Ô] + [Ô].bmp[Ô]

Quero gerar ela em jpg, mas se eu apenas alterar a extensão no final do SavePicture, não adianta, a imagem continua como bmp.

Valew!
MARCELO.TREZE 28/08/2013 21:14:33
#428259
Cleber geralmente vc pega esta dll coloca na pasta system32, e para usa-la vc devrá ir project/references e buscar esta dll, ai sim vc poderá usar a linha de código que o meu xará passou.
CLEBERBALMEIDA 29/08/2013 07:50:54
#428262
Amigos, fui tentar fazer a referência dessa DLL no visual basic 6, após colocá-la na pasta System32, e deu erro, apareceu a mensagem: [Ô]Cant[ô]t add a reference to the specified file.[Ô]. (Não é possível adicionar uma referência para o arquivo especificado).

Fui tentar registrar essa dll pelo prompt, no comando: [Ô]C:\>regsvr32 c:\windows\system32\fpeditax.dll[Ô], também deu erro, pediu para verificar se era uma dll válida.

Estou fazendo errado ou realmente o arquivo está com algum problema?

Obrigado!
MARCELO.TREZE 29/08/2013 15:44:36
#428284
qual o sistema operacional
CLEBERBALMEIDA 29/08/2013 16:29:19
#428287
Windows 7 32 bits
MARCELOSN 29/08/2013 16:57:29
#428289
boa tarde

Uso esta dll sem registro no windows 7 32 e 64 sem problema

segue o procedimento
---------------------------------------------------------------------------------------------------------------

>> txtLocal.Text =>> Local onde será salvo as imagem BMP e JPG
>> NomeImagem ==> Nome do arquivo da imagem BMP / JPG

[ô]salvando imagem no computador
SavePicture Me.ScrollPicture1.Picture, txtLocal.Text & NomeImagem & [Ô].bmp[Ô]

[ô]convertendo imagem em JPG
BMPToJPG txtLocal.Text & NomeImagem & [Ô].bmp[Ô], txtLocal.Text & NomeImagem & [Ô].JPG[Ô], 40

[ô]deletando antiga imagem bmp
Kill txtLocal.Text & NomeImagem & [Ô].bmp[Ô]
MARCELO.TREZE 29/08/2013 18:13:27
#428294
bom caso não consiga

abra o pronpt como administrador

vá até a pasta onde esta a dll ou seja digite no prompt

cd c:\ windows\system32

ai sim vc digita

regsvr32 [Ô]fpeditax.dll[Ô]


acredito que funcione
Tópico encerrado , respostas não são mais permitidas
Voltar