Hi,
There is a link to the picture on someone else's website.
<img loading="lazy" decoding="async" style="width: 100%; height: 100%; background: center center / cover; object-fit: cover;"
class="img image svelte-1aizpza" src="https://i.oneme.ru/i?r=BTE2sh_eZW7g8kugOdIm2Notn5Uj_vutw0JZOuoJpRlHQwUfwMhzHGGtcQEW7VWfF3I" alt="">
Is it possible to pull out an image and save it as a file?
Local cUrl := "https://example.com/path/to/image.jpg"
Local cLocalFile := "downloaded_image.jpg"
IF hDownload( cUrl, cLocalFile )
? "Image saved successfully to", cLocalFile
ELSE
? "Error downloading image"
ENDIF
// C:\FWH2603\SAMPLES\IMGDOWN2.PRG
#include "Fivewin.ch"
REQUEST HB_GT_GUI_DEFAULT
FUNCTION Main()
IF FILE( "c:\TEMP\Imagem2.jpg" )
DELETEFILE( "c:\TEMP\Imagem2.jpg" )
ENDIF
MsgRun( "Aguarde o Download...", "Espere", { || DownloadFile() } )
RETURN NIL
FUNCTION DownloadFile()
LOCAL oServerWS, oADODBStream
#ifdef __XHARBOUR__ // PERFEITO COM XHARBOUR( I Like )
Try
Try
oServerWS := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oServerWS := CreateObject( 'Microsoft.XMLHTTP' )
End
Catch
MsgInfo( 'Erro na Criação do Serviço' )
RETURN NIL
End
#else
Try
Try
oServerWS := win_OleCreateObject( 'MSXML2.XMLHTTP' )
Catch
oServerWS := win_OleCreateObject( 'Microsoft.XMLHTTP' )
End
Catch
MsgInfo( 'Erro na Criação do Serviço! Com Harbour', 'Atenção!' )
RETURN NIL
End
#endif
oADODBStream := CREATEOBJECT( "Adodb.Stream" )
oServerWS:Open( "GET", "https://i.oneme.ru/i?r=BTE2sh_eZW7g8kugOdIm2Notn5Uj_vutw0JZOuoJpRlHQwUfwMhzHGGtcQEW7VWfF3I", .F. )
oServerWS:Send()
oADODBStream:Type := 1
oADODBStream:Open()
oADODBStream:Write( oServerWS:ResponseBody )
oADODBStream:SaveToFile( "c:\TEMP\Imagem2.jpg", 2 )
IF FILE( "c:\TEMP\Imagem2.jpg" )
MsgInfo( "Imagem baixada com sucesso!", "Sucesso" )
ELSE
MsgStop( "Erro ao baixar a imagem.", "Erro" )
ENDIF
RETURN NIL
// FIN / ENDRegards, saludos.
// C:\FWH2603\SAMPLES\IMGDOWN.PRG
#include "fivewin.ch"
REQUEST HB_GT_GUI_DEFAULT
FUNCTION Main()
LOCAL cUrl := "https://i.oneme.ru/i?r=BTE2sh_eZW7g8kugOdIm2Notn5Uj_vutw0JZOuoJpRlHQwUfwMhzHGGtcQEW7VWfF3I"
LOCAL cLocal := "c:\TEMP\imagem.jpg"
LOCAL nRet
nRet := URLDownloadToFile( 0, cUrl, cLocal, 0, 0 )
IF nRet == 0
MsgInfo( "Imagem baixada com sucesso!", "Sucesso" )
ELSE
MsgStop( "Erro ao baixar a imagem.", "Erro" )
ENDIF
RETURN NIL
DLL32 FUNCTION URLDownloadToFile( pUnk AS LONG, cURL AS LPSTR, cFileName AS LPSTR, nReserved AS LONG, nFnCB AS LONG ) AS LONG ;
PASCAL FROM "URLDownloadToFileA" ;
LIB "urlmon.dll"Regards, saludos.