Tema destacado: [Overclocking] Récords de overclock del foro
 Autor
|
Tema: [Función] GetImage [VB6] (Leído 2,920 veces)
|
skyweb07
 Desconectado
Mensajes: 122
The ghost of the network
|
Bueno estaba intentando hacer algo pero me salio este churro... Saludos Option Explicit
'*********************************************************************************************************************
'* Función : mGetImage *
'* Fecha : 15/03/2010 : 11:05 *
'* Autor : Skyweb07 * skyweb09@hotmail.es *
'* Referencias : http://msdn.microsoft.com/en-us/library/ms678485%28VS.85%29.aspx *
'* : http://gpwiki.org/index.php/VB:Tutorials:WINAPI:Copy_DirectDrawSurface_To_StdPicture *
'* Próposito : Cargar una imagen en un picturebox o Image desde una ruta local o remota [URL] *
'* Comentarios : Microsoft : El flujo debe estar en (bitmap), JPEG, WMF (metafile), ICO (icon), o formato GIF. *
'* Soporte : SO Minimo : Windows 2000 Professional *
'* Modo de uso : PictureBox.picture = GetImage("URL de la imagen", Color Transparente [Opcional]) *
'**********************************************************************************************************************
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As GUID, ByRef ppvRet As IPicture) As Long
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Public Function GetImage(hURLorPath As String, Optional TransparentColor As OLE_COLOR = vbWhite) As StdPicture
Dim uID As GUID
With uID ' // StdPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(3) = &HAA
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
Call OleLoadPicturePath(StrPtr(hURLorPath), 0&, 0&, TransparentColor, uID, GetImage)
End Function
EDITADO : Perdón por el error que me falto un pedazo de code al postearlo 
|
|
|
|
« Última modificación: 16 Marzo 2010, 00:03 por skyweb07 »
|
En línea
|
|
|
|
|
|
Shell Root
Desconectado
Mensajes: 2.456
Alex Jurado
|
xD si creo que le falto... End With
'Aquí puede haber más code...
End Function |
|
|
|
|
En línea
|
 --- |
|
|
Karcrack
Desconectado
Mensajes: 2.192
Se siente observado ¬¬'
|
The stream must be in BMP (bitmap), JPEG, WMF (metafile), ICO (icon), or GIF format. Me gusta Minimalista! 
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 786
¬¬
|
Esto lo habras sacado de acá:http://www.runelocus.com/forums/archive/index.php/t-25306.html Y creo que si, la gran mayoria de las variables estan iguales...  Twisted 21st February 2009, 01:13 Hello, I'm not sure what the rule is on double posting here so I'm sorry if there is one. Just thought id let twisted know something. This code might interest you, allows you to loads a picture from a url to a picturebox. Private Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long Public Function LoadPicture(ByVal filename As String) As Picture Dim myTGUID As TGUID myTGUID.Data1 = &H7BF80980 myTGUID.Data2 = &HBF32 myTGUID.Data3 = &H101A myTGUID.Data4(0) = &H8B myTGUID.Data4(1) = &HBB myTGUID.Data4(2) = &H0 myTGUID.Data4(3) = &HAA myTGUID.Data4(4) = &H0 myTGUID.Data4(5) = &H30 myTGUID.Data4(6) = &HC myTGUID.Data4(7) = &HAB On Error GoTo LblError OleLoadPicturePath StrPtr(filename), 0, 0, 0, myTGUID, LoadPicture Exit Function LblError: MsgBox Err.Description Set LoadPicture = VB.LoadPicture(filename) End Function Also if you would like me to convert any code from vb.net version to vb6 i am more than willing to. Nah nah its cool. But by the looks of things that loads a picture from a image file on your computer, And i tried to do this, It only worked for as i said files already on the computer. I was looking for ones that load of the internet kinda like the code that you just gave me except it work's for links like: Image1.Picture = VB.LoadPicture(" http://garcya.us/images/car-wallpapers19.jpg")Thats a link to a car, I didn't work with the code it gave me an error. But once i downloaded it put it in C:/ i just change the code to. Image1.Picture = VB.LoadPicture("C:/car-wallpapers19.jpg") And it worked great. So in other words do you have a code like this, but loads of an image from a URL rather then a location on your Computer? P.S I just found out with your code you can adjust the size, color depth, and the X and Y coord's for the picture. Nice .DLL there lol. |
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
Karcrack
Desconectado
Mensajes: 2.192
Se siente observado ¬¬'
|
Esto lo habras sacado de acá:http://www.runelocus.com/forums/archive/index.php/t-25306.html Y creo que si, la gran mayoria de las variables estan iguales... Que malo eres   Si solo es un API como quieres que se haga de otra forma? Que cargue el type con dos Currencys? Tal que asi: 'OLEAUT32
Private Declare Function OleLoadPicturePath Lib "OLEAUT32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As GUID, ByRef ppvRet As IPicture) As Long
Private Type GUID
cData1 As Currency
cData2 As Currency
End Type
Public Function GetImage(hURLorPath As String, Optional TransparentColor As OLE_COLOR = vbWhite) As StdPicture
Dim uID As GUID
With uID ' // StdPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
.cData1 = 116045007755044.6976@
.cData2 = -612146501409303.8709@
End With
Call OleLoadPicturePath(StrPtr(hURLorPath), 0&, 0&, TransparentColor, uID, GetImage)
End Function No hay mucho que hacer en la llamada a un API, asi que no seas malo
|
|
|
|
« Última modificación: 16 Marzo 2010, 15:18 por Karcrack »
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 786
¬¬
|
Pero quizas pudo colocar la referencia, y no decir que el source es de el... Pero igual, Excelente Copy & Paste...! |
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
Komodo
Desconectado
Mensajes: 352
|
Pero quizas pudo colocar la referencia, y no decir que el source es de el... Pero igual, Excelente Copy & Paste...! Ya vino este user a mi ex-foro, con unos copys &pastes.. No me meteré en bullas, y menos sin que sepais quien soy de verdad.
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 786
¬¬
|
Qué user???
|
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
freddyjose00
Desconectado
Mensajes: 24
La risa es 1 tranquilizant sin efectos secundarios
|
Bueno Miguel tienen razón el debio decir de donde viene el codigo y así se fuera visto mejor.. De todas maneras buen aporte para los que no sabemos de otras páginas como: http://www.runelocus.com/forums/archive/index.php/t-25306.html ... |
|
|
|
|
En línea
|
Creo que una de los progresos más notorios es que ya no se siente la necesidad compulsiva de argumentar o justificar las cosas. Estamos mucho más dispuestos a admitir que ciertas cosas son instintivas y otras son intelectual.
Rem Koolhaas
|
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 786
¬¬
|
Bueno, sin más que decir, los demás usuarios sacaran sus propias concluciones respecto al Copy & Paste..!
|
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
Karcrack
Desconectado
Mensajes: 2.192
Se siente observado ¬¬'
|
Como ya he dicho NO creo que sea un C&P... Solo es un API, no hay mas formas de llamar a un API... Entonces esto tambien seria un C&P? Porque solo uso un API... |
|
|
|
|
En línea
|
|
|
|
Komodo
Desconectado
Mensajes: 352
|
Como ya he dicho NO creo que sea un C&P... Solo es un API, no hay mas formas de llamar a un API... Entonces esto tambien seria un C&P? Porque solo uso un API... Quizás esto no lo sea. Fin del tema, al menos por mi parte.
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
aca hay una confusion, no importa si es solo una api y se llama de esa manera siempre, el dio a entender como que estaba programando y le "salio" de su cabeza el codigo ese, pero no, es un Copy & Paste terrible, solo hace falta buscar en la web, siempre sale el mismo ejemplo...todo hubiera sido diferente si no hubiera dicho que lo hizo el...porque se sabe que no lo hizo. es mas busquen en el api guide ..esta el mismo ejemplo tambien..  ..si hubiera dicho por ejemplo: "Hola, aporto una forma para cargar una imagen local o remota con una sola api, fuente: api -guide..." eso hubiera sido diferente y no estuvieramos discutiendo esto. saludos. |
|
|
|
« Última modificación: 17 Marzo 2010, 01:47 por seba123neo »
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
|
 |
