Displaying web images directly on a vfp9 form (avoiding disc)

Published on by Yousfi Benameur


The traditional Vfp method to show any web image is to download it and save it on the disc as a real picture and then to populate it as file in the vfp form control image (picture property).
the API urlDownloadToFile can do easily this operation.
there is many posts where its working:
http://yousfi.over-blog.com/2016/02/playing-with-splitters.html
http://yousfi.over-blog.com/2016/03/build-your-chm-help-with-vfp-html-worshop.html
http://yousfi.over-blog.com/2016/01/embedding-images-in-code.html
....

But this can be done directly without saving the image on disc and working only in memory.this is done in vfp9 where gdiplus class was introduced specifically with pictureVal  image control property.the pictureVal receives a Blob string as image representation.This is done by the responseBody of the XMLHttpRequest object.( XML request using HTTP protocole working mandatory with internet explorer).
Of course internet must be connected and must have some speed to avoid error in XMLHttpRequest(delay)
the displaying speed of the web image on form seems to be fast.
the blob can be saved as a disc file with strtofile() function.

Note: certain web sites protect their resource with robots and then the image cannot loaded on the form and then generates error.

 

 

Click on code to select [then copy] -click outside to deselect



*1*
*this code can load any web image (not protected) from a vfp9 form.it uses the  MsXml2.XmlHttp object protocoles
*refrence:https://msdn.microsoft.com/en-us/library/ms535874(v=vs.85).aspx
*Of course ,internet must be connected.
*the responseBody returns a blob as image representation and uses the pictureVal property to display it
*note this is done without saving the image on disc and loading it as usual vfp method or using a browser(olecontrol). 
*the responseBody is a blob string loaded in memory.
*of course internet must be connected
*As you can see its fast and maybe never one used this trick before ?

Publi yform
yform=Newobject("yWebimg")
yform.Show
Read Events
Retur
*
Define Class ywebImg As Form
    Height = 420
	Width = 976
	ShowWindow = 2
	ShowTips = .T.
	AutoCenter = .T.
	Caption = "Display  directly web images without saving them on disc"
	MaxButton = .F.
	BackColor = Rgb(0,0,0)
	Name = "Form1"

	Add Object image1 As Image With ;
		Stretch = 1, ;
		Height = 377, ;
		Left = 360, ;
		Top = 7, ;
		Width = 612, ;
		Name = "Image1"

	Add Object edit1 As EditBox With ;
		Height = 288, ;
		Left = 1, ;
		ReadOnly = .T., ;
		ToolTipText = "Blob representation", ;
		Top = 82, ;
		Width = 275, ;
		ForeColor = Rgb(128,0,64), ;
		BackColor = Rgb(255,255,185), ;
		Name = "Edit1"

	Add Object combo1 As ComboBox With ;
		Height = 24, ;
		Left = 0, ;
		ToolTipText = "Add any web image url here ", ;
		Top = 24, ;
		Width = 276, ;
		Name = "Combo1"

	Add Object ysave As CommandButton With ;
		Top = 384,;
		Left = 84,;
		Height = 27,;
		Width = 84,;
		FontBold = .T.,;
		Caption = "Save",;
		MousePointer = 15,;
		BackColor = Rgb(128,255,0),;
		Name = "ysave"


	Procedure ysave.Click
	Local m.lcdest
	m.lcdest=Sys(2015)+".jpg"
	Strtofile(Thisform.edit1.Value,m.lcdest)
	Messagebox("Saved as " +m.lcdest,0+32+4096,"",1000)
	Endproc



	Procedure Destroy
	Clea Events
	Endproc

	Procedure combo1.Init
*add all wanted web images below with valid url
	With This
		.AddItem("https://encrypted-tbn2.gstatic.com/images?q=tbn:ANd9GcR9MW3nZFBOsjrmUM50lWgwx82B43qtj0D8Hvl6qf_vDetuUH3pSQ")
		.AddItem("http://www.dknews-dz.com/data/images/article/thumbs/d-el-bayadh-labsence-de-bureaux-detudes-agrees-retarde-linventaire-du-patrimoine-culturel-immobilier-acbf4.jpg")
		.AddItem("http://www.algerie-monde.com/hotels/el-bayadh/ksar-boussemghoun-el-bayadh.jpg")
		.AddItem("https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcRRNxGZNoINi9pJwvFVTVnDdlvZVIynziEO2YVA9PN6sdV5_EDL")
		.AddItem("http://olivier-morice.fr/images/2010/IMGP9139.jpg")
		.AddItem("http://olivier-morice.fr/images/2010/IMGP9441.jpg")
		.AddItem("http://olivier-morice.fr/images/2010/IMGP0006.jpg")
        .AddItem("http://img.over-blog-kiwi.com/100x100-ct/1/43/54/07/20150121/ob_249909_yben.JPG")

		.Style=2
		.ListIndex=1
		.Click()
	Endwith
	Endproc


	Procedure combo1.Click
	Thisform.edit1.Value=""
	Local loRequest,lcUrl

	m.lcUrl=This.Value
	m.loRequest = Createobject('MsXml2.XmlHttp')
	m.loRequest.Open("GET",lcUrl,.F.)
	m.loRequest.Send()
	Thisform.image1.PictureVal=m.loRequest.ResponseBody
	Thisform.edit1.Value      =m.loRequest.ResponseBody
	m.loRequest=Null
    thisform.image1.tooltiptext=this.value
	Endproc


Enddefine
*
*-- EndDefine:ywebImg



Displaying web images directly on a vfp9 form (avoiding disc)
Displaying web images directly on a vfp9 form (avoiding disc)

Click on code to select [then copy] -click outside to deselect


*2* updated on saturday 8 october 2016
*this code lists all images in any normal web site and display them on a form (this takes a certain time to accomplish).
*Of course ,internet must be connected.
*this uses IE emulation , MsXml2.XmlHttp and pictureVAl image control property.
*mousedown on any image to save it on disc (an images folder is created in source)

Clea All

Publi yform
yform=Newobject("ywebImg")
yform.Show
Read Events
Retu
*
Define Class ywebImg As Form
    Height = 424
	Width = 940
	ShowWindow = 2
	ScrollBars = 3
	AutoCenter = .T.
	Caption = "Form1"
	BackColor = Rgb(0,0,0)
	Name = "Form1"

	Procedure my
	Lparameters nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
	Aevents( myArray, 0)
*--- reference the calling object
	loObject = myArray[1]

	If Messagebox("Save "+loObject.Name +" to disc ?",4+64)=6
		If !Directory(m.yrep+"images")
			Md m.yrep+"images"
		Endi
		Sele ycurs
		Locate For Allt(yname)=Allt(loObject.Name)
		If Found()
			Strtofile(yblob,m.yrep+"images\"+Justfname(img))
			Messagebox("Saved as "+m.yrep+"images\"+Justfname(img),0+32+4096,'',1200)
		Endi
	Endi
	Endproc

	Procedure Destroy
	Clea Events
	Endproc

	Procedure Init
	Publi m.yrep
	m.yrep=Addbs(Justpath(Sys(16,1)))
	Set Defa To (yrep)

	Local m.delta
	m.delta=8
	Sele ycurs
*brow
	N=Reccount()
	Thisform.Caption="site:"+_Screen.xurl+" ["+Trans(N)+"images]   Click on image to save it to disc."

	With Thisform
		Scan
			i=Recno()
			.AddObject("img"+Trans(i),"image")
			With Eval(".img"+Trans(i))
				.PictureVal=yblob
				.BorderStyle=1
				.BorderColor=Rgb(255,255,255)
				.MousePointer=15

				If i=1
					.Left=1
				Else
					.Left=Eval("thisform.img"+Trans(i-1)+".left")+Eval("thisform.img"+Trans(i-1)+".width")+m.delta
				Endi
                .top=10
				.Visible=.T.
				Bindevent(Eval("thisform.img"+Trans(i)),"mousedown",Thisform,"my")
			Endwith
		Endscan
	Endwith
	Endproc

	Procedure Load
	Wait Window "Wait please...."  Nowait

	_Screen.AddProperty("xURl","http://www.lebuteur.com/" )  &&"http://www.huffpostmaghreb.com/algerie/" &&any normal web site

	Local apie,WinHttpReq
	apie = Newobject("internetExplorer.Application")
	WinHttpReq=Createobject("MsXml2.XmlHttp")
	apie.Navigate(_Screen.xurl)
	Do While  apie.busy Or apie.readystate#4
	Enddo

	Create Cursor ycurs (img c(254),yblob  M,yname c(10))
	oo = apie.Document

	For i = 0 To oo.images.Length - 1
		imgHtml = oo.images.Item(i)
		Insert Into ycurs  Values (imgHtml.src,"","img"+Trans(i+1))
	Next i
	Select ycurs

	apie.Quit

	Scan
		lcImage = Alltrim(ycurs.img )
		WinHttpReq.Open('GET',lcImage,.F.)
		WinHttpReq.Send()
		Repl yblob With WinHttpReq.ResponseBody
		Wait Window "Wait please...."  Nowait
	Endscan
	WinHttpReq=Null
	Endproc


	Procedure Activate
	Wait Clea
	Endproc


Enddefine
*
*-- EndDefine: ywebImg


can try this web photos album of El Kantara(121 photos take some time to load)

m.xURL=https://plus.google.com/u/0/b/116946555475644779750/photos/116946555475644779750/albums/6340708842503181089

Displaying web images directly on a vfp9 form (avoiding disc)
Displaying web images directly on a vfp9 form (avoiding disc)

Click on code to select [then copy] -click outside to deselect


*3*
*this plays a web diaporama (image by image) as a slider (239 images)
*updated on Thursday 14 october 2016

Publi yform
yform=Newobject("yweb_diaporama")
yform.Show
Read Events
Retu
*
Define Class yweb_diaporama As Form
	Height = 9961
	Width = 9984
	ShowWindow = 2
	ScrollBars = 3
	AutoCenter = .T.
	Caption = ""
	WindowState = 2
	BackColor = Rgb(0,0,0)
	Name = "Form1"

	Add Object ylab1 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "Webdings", ;
		FontSize = 60, ;
		BackStyle = 0, ;
		Caption = "3", ;
		Height = 82, ;
		Left = -4, ;
		MousePointer = 15, ;
		Top = 232, ;
		Width = 83, ;
		ForeColor = Rgb(0,255,0), ;
		Name = "ylab1"

	Add Object ylab2 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "Webdings", ;
		FontSize = 60, ;
		BackStyle = 0, ;
		Caption = "4", ;
		Height = 82, ;
		Left = 928, ;
		MousePointer = 15, ;
		Top = 223, ;
		Width = 83, ;
		ForeColor = Rgb(0,255,0), ;
		Name = "ylab2"

	Add Object image1 As Image With ;
		Stretch = 2, ;
		BorderStyle = 1, ;
		Height = 600, ;
		Left = 83, ;
		MousePointer = 15, ;
		Top = 9, ;
		Width = 841, ;
		BorderColor = Rgb(255,255,255), ;
		Name = "Image1"

	Add Object label1 As Label With ;
		Caption = "Label3", ;
		Height = 47, ;
		Left = 85, ;
		Top = 613, ;
		Width = 839, ;
		Name = "Label1"


	Add Object label2 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		Caption = "", ;
		Height = 22, ;
		Left = 936, ;
		Top = 12, ;
		Width = 2, ;
		ForeColor = Rgb(255,255,255), ;
		Name = "Label2"

	Procedure my
	Lparameters nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
	Aevents( myArray, 0)
*--- reference the calling object
	loObject = myArray[1]
	If Messagebox("Save "+loObject.Name +" to disc ?",4+64)=6
		If !Directory(m.yrep+"images")
			Md m.yrep+"images"
		Endi

		Sele ycurs
		Strtofile(yblob,m.yrep+"images\"+Justfname(yname)+".jpg")
		Messagebox("Saved as "+m.yrep+"images\"+Justfname(yname)+".jpg",0+32+4096,'',1200)

	Endi
	Endproc

	Procedure yrequest
	WinHttpReq=Createobject("WinHttp.WinHttpRequest.5.1")
	Sele ycurs
	i=Recno()
	lcImage = Alltrim(ycurs.url )
	WinHttpReq.Open('GET',lcImage,.F.)
	WinHttpReq.Send()
	Repl yblob With WinHttpReq.ResponseBody
	Thisform.image1.PictureVal=yblob
	WinHttpReq=Null

	With Thisform.image1
		.BorderStyle=1
		.BorderColor=Rgb(255,255,255)
	Endwith

	With Thisform.label1
		.ForeColor=Rgb(255,255,255)
		.BackStyle=0
		.FontBold=.T.
		.Caption=Descrip
		.FontName="Arial"
		.FontSize=12
		.WordWrap=.T.
		.AutoSize=.T.
	Endwith
	Thisform.label2.Caption=Trans(Recno())+"/"+Trans(Reccount())
	Endproc


	Procedure Activate
	Sele ycurs
*brow
	N=Reccount()
	Thisform.Caption="Algeria seen from the sky -www.yannarthusbertrand2.org"+" ["+Trans(N)+"images]   Click on image to save it to disc."
	Endproc

	Procedure Load
	Create Cursor ycurs (url c(254),Descrip c(254),yblob M,yname c(10))
	Dimension pic(239)
	Dimension Descr(239)

	pic[1] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=270'
	Descr[1] = 'Hélicoptère survolant les dunes près de l’oasis d’El Oued, Algérie.'
	pic[2] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=271'
	Descr[2] = 'Les monts du Hodna sous la neige, près de El Hammadia, Algérie (35°55 N – 4°47 E).'
	pic[3] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=272'
	Descr[3] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[4] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=273'
	Descr[4] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[5] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=274'
	Descr[5] = 'Site de Jabbaren, plateau du Tassili n’Ajjer, Algérie (24°28’ N - 9°47’ E).'
	pic[6] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=275'
	Descr[6] = 'Cultures dans la région de Aïn Touta, Aurès, Algérie (35°22’ N – 5°52’ E).'
	pic[7] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=276'
	Descr[7] = 'Cap Zedjar, dans la region d’Oued El Melah, Algérie'
	pic[8] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=277'
	Descr[8] = 'Chott Merouane, Algérie (34°02’ N – 6°06’ E).'
	pic[9] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=278'
	Descr[9] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[10] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=279'
	Descr[10] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[11] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=280'
	Descr[11] = 'Vallée près de El Mahdia, wilaya de Sétif, Algérie (36°10’ N - 5°15’ E).'
	pic[12] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=281'
	Descr[12] = 'Port d’Alger, Algérie (36°46’ N - 3°03’ E).'
	pic[13] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=282'
	Descr[13] = 'Vue générale d’Alger, Algérie'
	pic[14] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=283'
	Descr[14] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[15] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=284'
	Descr[15] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[16] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=285'
	Descr[16] = 'Mosquée Djamaa Lihoud dans la Casbah d’Alger, Algérie.'
	pic[17] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=286'
	Descr[17] = 'Hôtel El Aurassi et la baie d’Alger, Algérie.'
	pic[18] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=287'
	Descr[18] = 'Immeuble d’Alger, Algérie.'
	pic[19] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=288'
	Descr[19] = 'Front de mer d’Alger (square Port-Saïd et Théâtre National), Algérie (36°47’N – 03°04’E).'
	pic[20] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=289'
	Descr[20] = 'Boulevard Zirout Youcef et la gare centrale d’Alger, Algérie.'
	pic[21] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=290'
	Descr[21] = 'Place des Martyrs et la Casbah d’Alger, Algérie.'
	pic[22] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=291'
	Descr[22] = 'Monument des Martyrs (Maqam E’chahid), Alger, Algérie'
	pic[23] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=292'
	Descr[23] = 'Palais du Dey, Casbah d’Alger, Algérie.'
	pic[24] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=293'
	Descr[24] = 'Basilique Notre-Dame d’Afrique, Alger, Algérie.'
	pic[25] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=294'
	Descr[25] = 'Cimetière Saint-Eugène, Alger, Algérie'
	pic[26] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=295'
	Descr[26] = 'Pointe des Consuls à Bologhine, Alger, Algérie'
	pic[27] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=296'
	Descr[27] = 'Le quartier de Bab-el-Oued, Alger, Algérie'
	pic[28] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=297'
	Descr[28] = 'La plage des Sablettes, Bab-el-Oued, Algérie (36°48’ N - 3°02’ E).'
	pic[29] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=298'
	Descr[29] = 'La plage des Sablettes, Bab-el-Oued, Algérie (36°48’ N - 3°02’ E).'
	pic[30] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=299'
	Descr[30] = 'Cimetière de Miramar et plage de Raïs Hamidou près d’Alger, Algérie.'
	pic[31] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=300'
	Descr[31] = 'Plage de Raïs Hamidou à l’ouest d’Alger, Algérie.'
	pic[32] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=301'
	Descr[32] = 'Sidi Fredj près d’Alger, Algérie.'
	pic[33] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=302'
	Descr[33] = "Port de plaisance de Sidi Fredj à l'ouest d’Alger, Algérie."
	pic[34] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=303'
	Descr[34] = 'Zeralda, Algérie'
	pic[35] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=304'
	Descr[35] = 'Zeralda, Algérie'
	pic[36] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=305'
	Descr[36] = 'Boumerdès, Algérie'
	pic[37] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=306'
	Descr[37] = 'Bidonvilles près d’Alger le long de l’oued El Hamiz, Algérie (36°43’ N - 3°14’ E).'
	pic[38] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=307'
	Descr[38] = "Pêcheur sur la côte près d’Alger, Algérie (36°48' N - 3°17' E)."
	pic[39] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=308'
	Descr[39] = 'Tamentfoust près d’Alger, Algérie.'
	pic[40] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=309'
	Descr[40] = 'Mausolée royal de Maurétanie, wilaya de Tipiza, Algérie (36°36’N - 2°27’E).'
	pic[41] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=310'
	Descr[41] = 'Mausolée royal de Maurétanie, wilaya de Tipiza, Algérie (36°36’N - 2°27’E).'
	pic[42] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=311'
	Descr[42] = 'Cherchel, l’antique Caesarea, Algérie'
	pic[43] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=312'
	Descr[43] = 'Cherchell, Algérie'
	pic[44] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=313'
	Descr[44] = 'Ruines du mausolée de la nécropole chrétienne de Tipaza, Algérie (36°36’N - 2°26’E).'
	pic[45] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=314'
	Descr[45] = 'Site archéologique de Tipaza, Algérie'
	pic[46] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=315'
	Descr[46] = 'Aïn Tagouraït, Algérie'
	pic[47] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=316'
	Descr[47] = 'Village près de Cherchell, Algérie'
	pic[48] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=317'
	Descr[48] = 'Blida, Algérie'
	pic[49] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=318'
	Descr[49] = 'Place du 1er Novembre 1954 (ex. place d’Armes), Blida, Algérie.'
	pic[50] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=319'
	Descr[50] = 'Récolte de pommes de terre près de l’Arba, Algérie (36°34’ N – 3°08’ E).'
	pic[51] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=320'
	Descr[51] = 'Boufarik, Algérie'
	pic[52] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=321'
	Descr[52] = 'Moissons dans les environs de Khemis Miliana, wilaya de Aïn Defla, Algérie (36°18’ N - 2°20’ E).'
	pic[53] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=322'
	Descr[53] = 'Village près de Staouéli, Algérie'
	pic[54] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=323'
	Descr[54] = 'Domaine dans la plaine de la Mitidja, Algérie'
	pic[55] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=324'
	Descr[55] = 'Bougara près de Blida, Algérie'
	pic[56] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=325'
	Descr[56] = 'Cultures près de Biskra, Algérie (34°54’ N - 5°44’ E).'
	pic[57] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=326'
	Descr[57] = 'Djelfa, Algérie'
	pic[58] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=327'
	Descr[58] = 'Source chaude près de Djelfa, Algérie'
	pic[59] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=328'
	Descr[59] = 'Steppe aux environs d’Aïn Oussera, Wilaya de Aïn Djelfa, Algérie (35°21’ N - 2°54’ E).'
	pic[60] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=329'
	Descr[60] = 'Barrage vert à Hassi Bahbah, Algérie (35°04’ N - 3°01’ E).'
	pic[61] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=330'
	Descr[61] = 'Route près de Bougzoul, Algérie'
	pic[62] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=331'
	Descr[62] = '« Rocher de Sel » (Hadjer El Melh) près de Aïn Mabed, Algérie (34°50’ N – 3°06’ E).'
	pic[63] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=332'
	Descr[63] = 'Miliana, Algérie'
	pic[64] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=333'
	Descr[64] = 'Miliana, Algérie'
	pic[65] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=334'
	Descr[65] = 'Récolte entre Al Hassania et Souk El Had, wilaya de Aïn Defla, Algérie (36° 07’ N - 1°54’ E).'
	pic[66] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=335'
	Descr[66] = 'Khemis Miliana, Algérie'
	pic[67] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=336'
	Descr[67] = 'Paysage agricole entre Khemis Miliana et Hammam Righa, Algérie'
	pic[68] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=337'
	Descr[68] = 'Djedars à Tousnina (mausolées Berbères), Algérie'
	pic[69] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=338'
	Descr[69] = 'Djedars à Tousnina (mausolées Berbères), Algérie'
	pic[70] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=339'
	Descr[70] = 'Tiaret, Algérie'
	pic[71] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=340'
	Descr[71] = 'Plaine de Theniet El Had, Algérie (35°53’ N - 2°03’ E).'
	pic[72] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=341'
	Descr[72] = 'Marabout près de Sidi Hosni, Algérie'
	pic[73] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=342'
	Descr[73] = 'Oliveraie dans la région de Mascara, Algérie'
	pic[74] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=343'
	Descr[74] = 'Mascara, Algérie'
	pic[75] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=344'
	Descr[75] = 'Tonte des moutons près de Mellakou, plaine du Sersou, Algérie'
	pic[76] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=345'
	Descr[76] = 'Cultures près de Sidi Adbelli, Algérie'
	pic[77] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=346'
	Descr[77] = 'Champs d’oliviers dans la région de Tlemcen, Algérie.'
	pic[78] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=347'
	Descr[78] = 'Ferme près de Sidi Adbelli, Algérie'
	pic[79] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=348'
	Descr[79] = 'Flamants roses dans les eaux salées au sud de Tlemcen, Algérie'
	pic[80] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=349'
	Descr[80] = 'Daïet el Ferd au sud de Tlemcen, Algérie'
	pic[81] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=350'
	Descr[81] = 'Culture de la vigne, région de Tlemcen, Algérie'
	pic[82] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=351'
	Descr[82] = 'Ferme près de Sidi Adbelli, Algérie'
	pic[83] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=352'
	Descr[83] = 'Sidi Bel Abbès, Algérie'
	pic[84] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=353'
	Descr[84] = 'Domaine agricole près de Sidi Bel Abbès, Algérie'
	pic[85] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=354'
	Descr[85] = 'Nid de cigognes près de Sidi Bel Abbès, Algérie'
	pic[86] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=355'
	Descr[86] = 'Oliviers entre Tlemcen et Sidi Abdelli, Algérie'
	pic[87] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=356'
	Descr[87] = 'Siège de l’Assemblée populaire communale de Sidi Bel Abbès, Algérie.'
	pic[88] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=357'
	Descr[88] = 'Sidi Bel Abbès, Algérie'
	pic[89] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=358'
	Descr[89] = 'Tlemcen, Algérie'
	pic[90] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=359'
	Descr[90] = 'Minaret et vestiges de la mosquée de Mansourah, wilaya de Tlemcen, Algérie (36°05’ N - 4°28’ E).'
	pic[91] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=360'
	Descr[91] = 'La Grande Mosquée de Tlemcen, Algérie'
	pic[92] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=361'
	Descr[92] = 'Ferme près de Boukhanefis, Algérie'
	pic[93] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=362'
	Descr[93] = 'Ferme près de Sidi Abdelli, Algérie'
	pic[94] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=363'
	Descr[94] = 'Vue générale sur la ville d’Oran, Algérie'
	pic[95] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=364'
	Descr[95] = 'Les arènes d’Oran, Algérie'
	pic[96] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=365'
	Descr[96] = 'Oran, Algérie'
	pic[97] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=366'
	Descr[97] = 'Immeuble de la chambre de commerce d’Oran, Algérie.'
	pic[98] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=367'
	Descr[98] = 'La gare d’Oran, Algéria'
	pic[99] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=368'
	Descr[99] = 'Salines d’Arzew dans la région d’Oran, Algérie.'
	pic[100] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=369'
	Descr[100] = 'Kristel, wilaya d’Oran, Algérie (35°49’ N - 0°29’ O).'
	pic[101] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=370'
	Descr[101] = 'Mostaganem, Algérie'
	pic[102] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=371'
	Descr[102] = 'L’Assemblée populaire communale de Mostaganem, Algérie'
	pic[103] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=372'
	Descr[103] = 'Le marché couvert de Béni Saf, Algérie'
	pic[104] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=373'
	Descr[104] = 'Béni Saf, Algérie'
	pic[105] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=374'
	Descr[105] = 'Mers el-Kebir, Algérie'
	pic[106] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=375'
	Descr[106] = 'Aïn El Turk, Algérie'
	pic[107] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=376'
	Descr[107] = 'Cap El-Melah et sa plage à l’ouest d’Oran, Algérie.'
	pic[108] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=377'
	Descr[108] = 'La côte de Ghazaouet, Algérie'
	pic[109] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=378'
	Descr[109] = 'La côte de Ghazaouet, Algérie'
	pic[110] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=379'
	Descr[110] = 'Chantier naval à Beni Saf, Algérie'
	pic[111] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=380'
	Descr[111] = 'Pêcheurs à Ghazaouet, Algérie'
	pic[112] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=381'
	Descr[112] = 'Maison à deux entrées à l’ouest du cap Falcon, Algérie.'
	pic[113] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=382'
	Descr[113] = 'Ancienne église face à la place centrale et au port, Ghazaouet, Algérie'
	pic[114] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=383'
	Descr[114] = 'Phare du Cap de l’aiguille au nord-Est d’Oran, Algérie (35°53’ N - 0°29’ O).'
	pic[115] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=384'
	Descr[115] = 'Village dans la wilaya d’El Tarf, Algérie'
	pic[116] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=385'
	Descr[116] = 'Cultures sur les falaises dans la région d’Oued El Melah, Algérie.'
	pic[117] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=386'
	Descr[117] = 'Cap d’Acra à l’ouest de Beni Saf, Algérie.'
	pic[118] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=387'
	Descr[118] = 'Oasis de Timimoun, Algérie (34°02’ N - 6°06’ E).'
	pic[119] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=388'
	Descr[119] = 'Oasis de Timimoun, Algérie (34°02’ N - 6°06’ E).'
	pic[120] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=389'
	Descr[120] = 'Ksar d’Ighzer et marabout de Sidi Abd Al Rahman, Algérie (29°23’ N - 0°20’ E).'
	pic[121] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=390'
	Descr[121] = 'Fort à Tinerkouk, Algérie'
	pic[122] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=391'
	Descr[122] = 'Oasis du Gourara, Algérie'
	pic[123] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=392'
	Descr[123] = 'Timimoun, Algérie'
	pic[124] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=393'
	Descr[124] = 'Oasis de Timimoun, Algérie (34°02’ N – 6°06’ E).'
	pic[125] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=394'
	Descr[125] = 'Puits de pétrole près de Rhourde Ennous, Algéria'
	pic[126] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=395'
	Descr[126] = 'Construction d’un pipeline près de Rhourde Ennous, Algérie.'
	pic[127] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=396'
	Descr[127] = 'Torchères près de Hassi Messaoud, Algérie'
	pic[128] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=397'
	Descr[128] = 'Cigognes dans l’oasis Bordj Omar Driss, Algérie (28°09’ N - 6°51’ E).'
	pic[129] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=398'
	Descr[129] = 'Cigognes dans l’oasis Bordj Omar Driss, Algérie (28°09’ N - 6°51’ E).'
	pic[130] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=399'
	Descr[130] = 'Oasis de Touggourt (meurt à cause de l’eau salée utilisée pour l’irrigation), Algérie (33°05’ N - 06°05’ E).'
	pic[131] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=400'
	Descr[131] = 'Le Hoggar, Massif de l’Atakor, Algérie (23°17’ N – 5°43’ E).'
	pic[132] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=401'
	Descr[132] = 'Le Hoggar, massif de l’Atakor, Wilaya de Tamanrasset, Algérie (23°16’ N – 5°38’ E).'
	pic[133] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=402'
	Descr[133] = 'Traces de campement Touareg près d’Assekrem, massif du Hoggar, Algérie (23°12’ N - 5°39’ E).'
	pic[134] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=403'
	Descr[134] = 'Tassili n’Ajjer, le massif de l’Adrar au nord de Djanet, Algérie.'
	pic[135] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=404'
	Descr[135] = 'Cratère volcanique dans le massif de l’Atakor, Algérie.'
	pic[136] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=405'
	Descr[136] = 'Plateau du Tassili n’Ajjer, Algérie'
	pic[137] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=406'
	Descr[137] = 'Forêt de pierres, plateau du Tassili n’Ajjer, Algérie (25°30’ N - 8°58’ E).'
	pic[138] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=407'
	Descr[138] = 'Parcelles cultivées près de Djanet, Algérie'
	pic[139] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=408'
	Descr[139] = 'Oasis d’Iherir, Algérie'
	pic[140] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=409'
	Descr[140] = 'Cultures à Djanet, Algérie'
	pic[141] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=410'
	Descr[141] = 'Djanet, Algérie'
	pic[142] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=411'
	Descr[142] = 'Dunes après la pluie dans l’Erg d’Admer près de Djanet, Wilaya d’Illizi, Algérie (24°23’ N - 9°23’ E).'
	pic[143] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=412'
	Descr[143] = 'Grand Erg occidental, Algérie'
	pic[144] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=413'
	Descr[144] = 'Grand Erg près de Djanet, Algérie (24°26’ N - 09°25’E).'
	pic[145] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=414'
	Descr[145] = 'Sépulture néolithique à enclos près de Tin-Amali, Algérie (24°25’ N - 9°32’ E).'
	pic[146] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=415'
	Descr[146] = 'Sépulture néolithique à enclos, au sud de Djanet, Tassili n’Ajjer, Algérie (24°26’ N – 9°34’ E).'
	pic[147] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=416'
	Descr[147] = 'Oasis d’El-Golea, Algérie'
	pic[148] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=417'
	Descr[148] = 'Maisons dans la palmeraie de Ghardaïa, Algérie'
	pic[149] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=448'
	Descr[149] = 'Site archéologique de Timgad, arc de Trajan, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[150] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=449'
	Descr[150] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[151] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=450'
	Descr[151] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[152] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=451'
	Descr[152] = 'La Médina de constantine, Algérie'
	pic[153] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=452'
	Descr[153] = 'Le centre-ville de Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[154] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=453'
	Descr[154] = 'Mosquée de l’Istiqlal, Constantine, Algérie.'
	pic[155] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=454'
	Descr[155] = 'Grande Mosquée Emir Abd el-Kader, Constantine, Algérie'
	pic[156] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=455'
	Descr[156] = 'Mausolée de Sidi Rached, Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[157] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=456'
	Descr[157] = 'Site archéologique de Tiddis, Algérie'
	pic[158] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=457'
	Descr[158] = 'Site archéologique de Tiddis, Algérie'
	pic[159] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=458'
	Descr[159] = 'Sources thermales d’Hammam Meskoutine, Algérie (36°26’ N - 7°16’ E).'
	pic[160] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=459'
	Descr[160] = 'Adolescents courant au milieu des sources thermales d’Hammam Meskoutine, Algérie (36°26’ N, 7°16’ E).'
	pic[161] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=460'
	Descr[161] = 'Les monts du Hodna sous la neige, près de El Hammadia, Algérie (35°55’ N – 4°47’ E).'
	pic[162] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=461'
	Descr[162] = 'El Mahdia, Algérie'
	pic[163] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=462'
	Descr[163] = 'Sétif, Algérie'
	pic[164] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=463'
	Descr[164] = 'Cité nouvelle à Sétif, Algérie'
	pic[165] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=464'
	Descr[165] = 'Centre-ville de Sétif, Algérie'
	pic[166] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=465'
	Descr[166] = 'La mairie de Tizi Ouzou, Algérie'
	pic[167] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=466'
	Descr[167] = 'Vue générale de Tizi Ouzou, Algérie'
	pic[168] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=467'
	Descr[168] = 'Paysage de Kabylie, Algérie'
	pic[169] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=468'
	Descr[169] = 'Paysage de Kabylie, Algérie'
	pic[170] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=469'
	Descr[170] = 'Tikjda, Algérie'
	pic[171] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=470'
	Descr[171] = 'Taourirt Amokrane, Algérie'
	pic[172] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=471'
	Descr[172] = 'Seddouk, Grande Kabylie, Algérie'
	pic[173] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=472'
	Descr[173] = 'Béjaïa, Algérie'
	pic[174] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=473'
	Descr[174] = 'Cité balnéaire près de Béjaïa, Algérie'
	pic[175] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=474'
	Descr[175] = 'Bejaïa, la ville, Algérie'
	pic[176] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=475'
	Descr[176] = 'Fort de Béjaïa, Algérie'
	pic[177] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=476'
	Descr[177] = 'Béjaïa, Algérie'
	pic[178] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=477'
	Descr[178] = 'Serres près de Jijel, Algérie'
	pic[179] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=478'
	Descr[179] = 'Jijel, Algérie'
	pic[180] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=479'
	Descr[180] = 'Collo, Algérie'
	pic[181] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=480'
	Descr[181] = 'Ziama Mansouria, Algérie'
	pic[182] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=481'
	Descr[182] = 'El Aouana (ex. Cavallo) à l’ouest de Jijel, Algérie (36°47’ N - 5°36’ E).'
	pic[183] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=482'
	Descr[183] = 'Skikda, Algérie'
	pic[184] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=483'
	Descr[184] = 'Pêcheurs sur la côte d’El Kala, Algérie.'
	pic[185] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=484'
	Descr[185] = 'Vue générale de Skikda, Algérie'
	pic[186] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=485'
	Descr[186] = 'Ras Hadid (cap de Fer) à l’est de Skikda, Algérie'
	pic[187] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=486'
	Descr[187] = 'Stora, à l’est de Skikda, Algérie.'
	pic[188] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=487'
	Descr[188] = 'Phare près de Stora, Algérie'
	pic[189] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=488'
	Descr[189] = 'Chetaibi, Algérie'
	pic[190] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=489'
	Descr[190] = 'Littoral près de la plage de Seraïdi au nord d’Annaba, Algérie (36°57’ N - 7°42’ E).'
	pic[191] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=490'
	Descr[191] = 'Paysage aux environs d’Amoucha, wilaya de Sétif, Algérie (36°08’ N - 7°30’ E).'
	pic[192] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=491'
	Descr[192] = 'Plaine d’El Mahdia, Algérie'
	pic[193] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=492'
	Descr[193] = 'El Mahdia, Algérie'
	pic[194] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=493'
	Descr[194] = 'Théâtre romain de Guelma, Algérie (36°28’ N - 7°26’ E).'
	pic[195] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=494'
	Descr[195] = 'Guelma, Algérie'
	pic[196] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=495'
	Descr[196] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[197] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=496'
	Descr[197] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[198] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=497'
	Descr[198] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[199] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=498'
	Descr[199] = 'Annaba, Algérie'
	pic[200] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=499'
	Descr[200] = 'Annaba, Algérie'
	pic[201] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=500'
	Descr[201] = 'Basilique Saint-Augustin à Annaba, Algérie'
	pic[202] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=501'
	Descr[202] = 'Cap rosa, près d’Annaba, Algérie.'
	pic[203] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=502'
	Descr[203] = 'Lac Bleu dans le Parc National El Kala, Algérie'
	pic[204] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=503'
	Descr[204] = 'Lac Tonga dans le parc national d’El-Kala, Algérie.'
	pic[205] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=504'
	Descr[205] = 'Cimetière chrétien d’El-Kala, Algérie'
	pic[206] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=505'
	Descr[206] = 'El-Kala (La Cale), Algérie'
	pic[207] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=506'
	Descr[207] = 'Bastion de France, Algérie'
	pic[208] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=507'
	Descr[208] = 'Chott Merouane, entre Biskra et El Oued, Algérie'
	pic[209] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=447'
	Descr[209] = 'Timgad, l’arc de Trajan, wilaya de Batna, Algérie (35°29’ N- 6°28’ E).'
	pic[210] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=431'
	Descr[210] = 'Cité nouvelle à El-Oued, Algérie'
	pic[211] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=430'
	Descr[211] = 'Cimetière à El-Goléa, Algérie'
	pic[212] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=429'
	Descr[212] = 'El-Oued, la ville aux mille coupoles, Algérie'
	pic[213] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=428'
	Descr[213] = 'Le siège de la wilaya d’El-Oued, Algérie'
	pic[214] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=427'
	Descr[214] = 'Végétation au creux des dunes, environs d’El-Oued, Algérie (33°25 N – 6°57’ E).'
	pic[215] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=426'
	Descr[215] = 'Irrigation près de l’oasis d’El-Oued, Algérie (33°22’ N – 6°52’ E).'
	pic[216] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=425'
	Descr[216] = 'Vol de flamants roses, Ouargla, Algérie (24°00’ N – 8°00’ E).'
	pic[217] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=424'
	Descr[217] = 'Une rue de Beni Izguen, Algérie'
	pic[218] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=423'
	Descr[218] = 'Beni Izguen, Algérie'
	pic[219] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=422'
	Descr[219] = 'Ville de Ghardaïa dans la vallée du M’Zab, Algérie (32°29’ N - 3°40’ E).'
	pic[220] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=421'
	Descr[220] = 'École à Ghardaïa, Algérie (32°31’ N – 3°37’ E).'
	pic[221] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=420'
	Descr[221] = 'Minaret de Ghardaïa, Algérie (32°29’ N - 3°40’ E).'
	pic[222] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=432'
	Descr[222] = 'Palmeraie de l’oasis d’El-Oued, Algérie'
	pic[223] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=433'
	Descr[223] = 'Mont du M’zab, wilaya de Ghardaïa, Algérie (32°65’ N - 3°42’ E).'
	pic[224] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=434'
	Descr[224] = 'Barrage de Foum El Gherza sur le canyon de l’oued El Abiod, Wilaya de Biskra, Algérie (34°57’ N - 6°00’ E).'
	pic[225] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=446'
	Descr[225] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[226] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=445'
	Descr[226] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[227] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=444'
	Descr[227] = 'Touristes dans le <i>cardo maximus</i> de Timgad, Algérie'
	pic[228] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=443'
	Descr[228] = 'Chott Merouane, entre Biskra et El Oued, Algérie (34°02’ N – 6°06’ E).'
	pic[229] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=442'
	Descr[229] = 'Les Gorges du Rhoufi, Algérie'
	pic[230] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=441'
	Descr[230] = 'Le Rhoufi, Algérie'
	pic[231] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=440'
	Descr[231] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[232] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=439'
	Descr[232] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[233] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=438'
	Descr[233] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[234] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=437'
	Descr[234] = 'Massif des Aurès, Algérie'
	pic[235] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=436'
	Descr[235] = 'Chott Hodna, Algérie'
	pic[236] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=435'
	Descr[236] = 'Barrage à El Kantara, palmeraie inondée, Massif des Aurès, Algérie (35° 07’ N - 5°36’ E).'
	pic[237] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=419'
	Descr[237] = 'El Atteuf, vallée du M’Zab, Algérie (32°27’ N – 3°44’ E).'
	pic[238] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=418'
	Descr[238] = 'Beni Izguen, vallée du M’Zab, Algérie (32°29’ N - 3°40’ E).'
	pic[239] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=269'
	Descr[239] = 'Mosquée dans un quartier de El Oued, Wilaya d’ El Oued, Algérie (33°22’ N - 6°52’ E).'

	For i=1 To 239
		Wait Window pic(i) Nowait
		Insert Into ycurs Values (pic(i),Descr(i),"","img"+Trans(i))
	Endfor
*brow

	Locate
	Endproc

	Procedure Init
	Publi m.yrep
	m.yrep=Addbs(Justpath(Sys(16,1)))
	Set Defa To (yrep)
	With Thisform
		.Left=0
		.Top=0
		.Width=Sysmetric(1)-5
		.Height=Sysmetric(2)+5
		.BackColor=0
	Endwith
	Bindevent(Thisform.image1,"mousedown",Thisform,"my")

	Sele ycurs
	Locate
	Thisform.yrequest()
	Endproc

	Procedure Destroy
	Clea Events
	Endproc

	Procedure ylab1.Click
	Sele ycurs
	Try
		Skip-1
	Catch
		Locate
	Endtry
	Thisform.yrequest()
	Endproc

	Procedure ylab2.Click
	Sele ycurs
	Try
		Skip
	Catch
		Locate
	Endtry
	Thisform.yrequest()
	Endproc


Enddefine
*
*-- EndDefine: yweb_diaporama


Note: Can add a centered transparent  animated gif (as spinner) to simulate the transition between images.Add a timer if want automatic refresh.

Note: Can add a centered transparent animated gif (as spinner) to simulate the transition between images.Add a timer if want automatic refresh.

Click on code to select [then copy] -click outside to deselect



*4* updated on saturday 15 october 2016
*this code lists all images in any normal web site and display them on a form
*Added a timer to make operation automatic and an animated gif as transition between 2 images
*Added a windows mediaplayer (invisible) to play an URl song.
*this uses IE emulation , MsXml2.XmlHttp and pictureVAl image control property.
*mousedown on any image to save it on disc (an images folder is created in source)
*update:*corrected typo on loops.gif( instead loops.png)+make image borderstyle=0to avoid some flickers.

Clea All


*download the animated gif  used in code.if dont have internet connect , replace by a local image named loops.gif (animated)
Declare Integer URLDownloadToFile In urlmon.Dll Integer pCaller, String szURL, String szFileName, Integer dwReserved, Integer lpfnCB
Declare Integer DeleteUrlCacheEntry In wininet String lpszUrlName

Local lcDownloadURL,lcDownloadLoc,lnResult
lcDownloadURL = "http://img.over-blog-kiwi.com/1/43/54/07/20161015/ob_9ebdb6_loops.gif"
lcDownloadLoc = "loops.gif"

lnResult = DeleteUrlCacheEntry(lcDownloadURL)
lnResult = URLDownloadToFile(0, lcDownloadURL, lcDownloadLoc , 0,0)
If lnResult = 0
	Wait Window "Download  image loops.gif Complete" Nowait
*Else
*!*        Messagebox("Download fails")
Endi



Publi yform
yform=Newobject("ywebImg")
yform.Show
Read Events
Retu
*
Define Class ywebImg As Form
	Height = 735
	Width = 998
	ShowWindow = 2
	ScrollBars = 0
	AutoCenter = .T.
	Caption = ""
	WindowState = 0
	BackColor = Rgb(0,0,0)
	Name = "Form1"

	Add Object ylab1 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "Webdings", ;
		FontSize = 60, ;
		BackStyle = 0, ;
		Caption = "3", ;
		Height = 82, ;
		Left = -4, ;
		MousePointer = 15, ;
		Top = 254, ;
		Width = 83, ;
		ForeColor = Rgb(0,255,0), ;
		Name = "ylab1"

	Add Object ylab2 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "Webdings", ;
		FontSize = 60, ;
		BackStyle = 0, ;
		Caption = "4", ;
		Height = 82, ;
		Left = 928, ;
		MousePointer = 15, ;
		Top = 254, ;
		Width = 83, ;
		ForeColor = Rgb(0,255,0), ;
		Name = "ylab2"

	Add Object image1 As Image With ;
		Stretch = 2, ;
		BackStyle = 1, ;
		BorderStyle = 1, ;
		Height = 624, ;
		Left = 84, ;
		MousePointer = 15, ;
		Top = 48, ;
		Width = 841, ;
		BorderColor = Rgb(255,255,255), ;
		Name = "Image1"


	Add Object label1 As Label With ;
		Caption = "Label3", ;
		Height = 47, ;
		Left = 84, ;
		Top = 684, ;
		Width = 839, ;
		autosize=.T.,;
		wordwrap=.T.,;
		Name = "Label1"

	Add Object label2 As Label With ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontSize = 12, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		Caption = "", ;
		Height = 22, ;
		Left = 936, ;
		Top = 14, ;
		Width = 2, ;
		ForeColor = Rgb(255,255,255), ;
		Name = "Label2"

	Add Object image2 As Image With ;
		Anchor = 768, ;
		Picture = "loops.gif", ;
		Stretch = 2, ;
		BackStyle = 0, ;
    borderstyle=1,;
		bordercolor=rgb(255,255,255),;
		Height = 168, ;
		Left = 372, ;
		Top = 276, ;
		Visible = .F., ;
		Width = 192, ;
		Name = "Image2"

	Add Object timer1 As Timer With ;
		Top = 372, ;
		Left = 960, ;
		Height = 23, ;
		Width = 23, ;
		Name = "Timer1"

	Add Object timer2 As Timer With ;
		Top = 372, ;
		Left = 960, ;
		Height = 23, ;
		Width = 23, ;
		Interval = 10000, ;
		Name = "Timer2"

	Procedure my
	Lparameters nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
	Aevents( myArray, 0)
*--- reference the calling object
	loObject = myArray[1]


	If Messagebox("Save "+loObject.Name +" to disc ?",4+64)=6
		If !Directory(m.yrep+"images")
			Md m.yrep+"images"
		Endi

		Sele ycurs
		Strtofile(yblob,m.yrep+"images\"+Justfname(yname)+".jpg")
		Messagebox("Saved as "+m.yrep+"images\"+Justfname(yname)+".jpg",0+32+4096,'',1200)
	Endi
	Endproc


	Procedure yrequest
	With Thisform.image2
		.Picture="loops.gif"
		.Left=(.Parent.Width-.Width)/2
		.Top=(.Parent.Height-.Height)/2 -100
		.Visible=.T.
		.ZOrder(0)
	Endwith

	WinHttpReq=Createobject("MsXml2.XmlHttp")

	Sele ycurs

	i=Recno()
	lcImage = Alltrim(ycurs.url )
	WinHttpReq.Open('GET',lcImage,.F.)
	WinHttpReq.Send()
	Repl yblob With WinHttpReq.ResponseBody
	Inkey(2)
	Thisform.image2.Visible=.F.
	Thisform.image1.PictureVal=yblob

	WinHttpReq=Null


	With Thisform.image1
		.BorderStyle=0   &&1
		.BorderColor=Rgb(255,255,255)
	Endwith

	With Thisform.label1
		.ForeColor=Rgb(255,255,255)
		.BackStyle=0
		.FontBold=.T.
		.Caption=Descrip
		.FontName="Arial"
		.FontSize=12
		.AutoSize=.T.
		.WordWrap=.T.
	Endwith
	Thisform.label2.Caption=Trans(Recno())+"/"+Trans(Reccount())
	Endproc

	Procedure Destroy
	wmp=Null
	Clea Events
	Endproc

	Procedure Init
	Wait Clea
	Publi m.yrep
	m.yrep=Addbs(Justpath(Sys(16,1)))
	Set Defa To (yrep)
	With Thisform
		.Left=-5
		.Top=0
		.Width=Sysmetric(1)-5
		.Height=Sysmetric(2)-Sysmetric(9)-Sysmetric(4)-10
		.BackColor=0
	Endwith
	Bindevent(Thisform.image1,"mousedown",Thisform,"my")

	Sele ycurs
	Locate
	Thisform.yrequest()

	Local m.xurl
	m.xurl="http://www.maghrebspace.net/62234/03979e85026d8a0155a7c29635511811/___www_maghrebspace_net__31082015092715311Mohamed%20abdelwahab.mp3"
	Publi  wmp As WindowsMediaPlayer
	wmp = Createobject("WMPlayer.OCX.7")
	With wmp
		.settings.autoStart = .T.
		.settings.Volume=100
		.settings.setMode('loop',.T.)    &&loop
		.url=m.xurl
		.Controls.Play()
	Endwith

	Endproc

	Procedure Load
	Create Cursor ycurs (url c(254),Descrip c(254),yblob M,yname c(10))
	Dimension pic(239)
	Dimension Descr(239)

	pic[1] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=270'
	Descr[1] = 'Hélicoptère survolant les dunes près de l’oasis d’El Oued, Algérie.'
	pic[2] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=271'
	Descr[2] = 'Les monts du Hodna sous la neige, près de El Hammadia, Algérie (35°55 N – 4°47 E).'
	pic[3] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=272'
	Descr[3] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[4] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=273'
	Descr[4] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[5] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=274'
	Descr[5] = 'Site de Jabbaren, plateau du Tassili n’Ajjer, Algérie (24°28’ N - 9°47’ E).'
	pic[6] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=275'
	Descr[6] = 'Cultures dans la région de Aïn Touta, Aurès, Algérie (35°22’ N – 5°52’ E).'
	pic[7] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=276'
	Descr[7] = 'Cap Zedjar, dans la region d’Oued El Melah, Algérie'
	pic[8] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=277'
	Descr[8] = 'Chott Merouane, Algérie (34°02’ N – 6°06’ E).'
	pic[9] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=278'
	Descr[9] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[10] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=279'
	Descr[10] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[11] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=280'
	Descr[11] = 'Vallée près de El Mahdia, wilaya de Sétif, Algérie (36°10’ N - 5°15’ E).'
	pic[12] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=281'
	Descr[12] = 'Port d’Alger, Algérie (36°46’ N - 3°03’ E).'
	pic[13] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=282'
	Descr[13] = 'Vue générale d’Alger, Algérie'
	pic[14] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=283'
	Descr[14] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[15] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=284'
	Descr[15] = 'La Casbah d’Alger, Algérie (36°45’ N – 3°01’ E).'
	pic[16] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=285'
	Descr[16] = 'Mosquée Djamaa Lihoud dans la Casbah d’Alger, Algérie.'
	pic[17] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=286'
	Descr[17] = 'Hôtel El Aurassi et la baie d’Alger, Algérie.'
	pic[18] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=287'
	Descr[18] = 'Immeuble d’Alger, Algérie.'
	pic[19] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=288'
	Descr[19] = 'Front de mer d’Alger (square Port-Saïd et Théâtre National), Algérie (36°47’N – 03°04’E).'
	pic[20] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=289'
	Descr[20] = 'Boulevard Zirout Youcef et la gare centrale d’Alger, Algérie.'
	pic[21] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=290'
	Descr[21] = 'Place des Martyrs et la Casbah d’Alger, Algérie.'
	pic[22] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=291'
	Descr[22] = 'Monument des Martyrs (Maqam E’chahid), Alger, Algérie'
	pic[23] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=292'
	Descr[23] = 'Palais du Dey, Casbah d’Alger, Algérie.'
	pic[24] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=293'
	Descr[24] = 'Basilique Notre-Dame d’Afrique, Alger, Algérie.'
	pic[25] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=294'
	Descr[25] = 'Cimetière Saint-Eugène, Alger, Algérie'
	pic[26] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=295'
	Descr[26] = 'Pointe des Consuls à Bologhine, Alger, Algérie'
	pic[27] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=296'
	Descr[27] = 'Le quartier de Bab-el-Oued, Alger, Algérie'
	pic[28] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=297'
	Descr[28] = 'La plage des Sablettes, Bab-el-Oued, Algérie (36°48’ N - 3°02’ E).'
	pic[29] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=298'
	Descr[29] = 'La plage des Sablettes, Bab-el-Oued, Algérie (36°48’ N - 3°02’ E).'
	pic[30] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=299'
	Descr[30] = 'Cimetière de Miramar et plage de Raïs Hamidou près d’Alger, Algérie.'
	pic[31] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=300'
	Descr[31] = 'Plage de Raïs Hamidou à l’ouest d’Alger, Algérie.'
	pic[32] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=301'
	Descr[32] = 'Sidi Fredj près d’Alger, Algérie.'
	pic[33] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=302'
	Descr[33] = "Port de plaisance de Sidi Fredj à l'ouest d’Alger, Algérie."
	pic[34] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=303'
	Descr[34] = 'Zeralda, Algérie'
	pic[35] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=304'
	Descr[35] = 'Zeralda, Algérie'
	pic[36] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=305'
	Descr[36] = 'Boumerdès, Algérie'
	pic[37] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=306'
	Descr[37] = 'Bidonvilles près d’Alger le long de l’oued El Hamiz, Algérie (36°43’ N - 3°14’ E).'
	pic[38] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=307'
	Descr[38] = "Pêcheur sur la côte près d’Alger, Algérie (36°48' N - 3°17' E)."
	pic[39] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=308'
	Descr[39] = 'Tamentfoust près d’Alger, Algérie.'
	pic[40] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=309'
	Descr[40] = 'Mausolée royal de Maurétanie, wilaya de Tipiza, Algérie (36°36’N - 2°27’E).'
	pic[41] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=310'
	Descr[41] = 'Mausolée royal de Maurétanie, wilaya de Tipiza, Algérie (36°36’N - 2°27’E).'
	pic[42] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=311'
	Descr[42] = 'Cherchel, l’antique Caesarea, Algérie'
	pic[43] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=312'
	Descr[43] = 'Cherchell, Algérie'
	pic[44] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=313'
	Descr[44] = 'Ruines du mausolée de la nécropole chrétienne de Tipaza, Algérie (36°36’N - 2°26’E).'
	pic[45] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=314'
	Descr[45] = 'Site archéologique de Tipaza, Algérie'
	pic[46] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=315'
	Descr[46] = 'Aïn Tagouraït, Algérie'
	pic[47] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=316'
	Descr[47] = 'Village près de Cherchell, Algérie'
	pic[48] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=317'
	Descr[48] = 'Blida, Algérie'
	pic[49] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=318'
	Descr[49] = 'Place du 1er Novembre 1954 (ex. place d’Armes), Blida, Algérie.'
	pic[50] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=319'
	Descr[50] = 'Récolte de pommes de terre près de l’Arba, Algérie (36°34’ N – 3°08’ E).'
	pic[51] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=320'
	Descr[51] = 'Boufarik, Algérie'
	pic[52] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=321'
	Descr[52] = 'Moissons dans les environs de Khemis Miliana, wilaya de Aïn Defla, Algérie (36°18’ N - 2°20’ E).'
	pic[53] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=322'
	Descr[53] = 'Village près de Staouéli, Algérie'
	pic[54] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=323'
	Descr[54] = 'Domaine dans la plaine de la Mitidja, Algérie'
	pic[55] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=324'
	Descr[55] = 'Bougara près de Blida, Algérie'
	pic[56] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=325'
	Descr[56] = 'Cultures près de Biskra, Algérie (34°54’ N - 5°44’ E).'
	pic[57] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=326'
	Descr[57] = 'Djelfa, Algérie'
	pic[58] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=327'
	Descr[58] = 'Source chaude près de Djelfa, Algérie'
	pic[59] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=328'
	Descr[59] = 'Steppe aux environs d’Aïn Oussera, Wilaya de Aïn Djelfa, Algérie (35°21’ N - 2°54’ E).'
	pic[60] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=329'
	Descr[60] = 'Barrage vert à Hassi Bahbah, Algérie (35°04’ N - 3°01’ E).'
	pic[61] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=330'
	Descr[61] = 'Route près de Bougzoul, Algérie'
	pic[62] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=331'
	Descr[62] = '« Rocher de Sel » (Hadjer El Melh) près de Aïn Mabed, Algérie (34°50’ N – 3°06’ E).'
	pic[63] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=332'
	Descr[63] = 'Miliana, Algérie'
	pic[64] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=333'
	Descr[64] = 'Miliana, Algérie'
	pic[65] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=334'
	Descr[65] = 'Récolte entre Al Hassania et Souk El Had, wilaya de Aïn Defla, Algérie (36° 07’ N - 1°54’ E).'
	pic[66] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=335'
	Descr[66] = 'Khemis Miliana, Algérie'
	pic[67] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=336'
	Descr[67] = 'Paysage agricole entre Khemis Miliana et Hammam Righa, Algérie'
	pic[68] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=337'
	Descr[68] = 'Djedars à Tousnina (mausolées Berbères), Algérie'
	pic[69] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=338'
	Descr[69] = 'Djedars à Tousnina (mausolées Berbères), Algérie'
	pic[70] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=339'
	Descr[70] = 'Tiaret, Algérie'
	pic[71] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=340'
	Descr[71] = 'Plaine de Theniet El Had, Algérie (35°53’ N - 2°03’ E).'
	pic[72] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=341'
	Descr[72] = 'Marabout près de Sidi Hosni, Algérie'
	pic[73] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=342'
	Descr[73] = 'Oliveraie dans la région de Mascara, Algérie'
	pic[74] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=343'
	Descr[74] = 'Mascara, Algérie'
	pic[75] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=344'
	Descr[75] = 'Tonte des moutons près de Mellakou, plaine du Sersou, Algérie'
	pic[76] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=345'
	Descr[76] = 'Cultures près de Sidi Adbelli, Algérie'
	pic[77] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=346'
	Descr[77] = 'Champs d’oliviers dans la région de Tlemcen, Algérie.'
	pic[78] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=347'
	Descr[78] = 'Ferme près de Sidi Adbelli, Algérie'
	pic[79] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=348'
	Descr[79] = 'Flamants roses dans les eaux salées au sud de Tlemcen, Algérie'
	pic[80] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=349'
	Descr[80] = 'Daïet el Ferd au sud de Tlemcen, Algérie'
	pic[81] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=350'
	Descr[81] = 'Culture de la vigne, région de Tlemcen, Algérie'
	pic[82] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=351'
	Descr[82] = 'Ferme près de Sidi Adbelli, Algérie'
	pic[83] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=352'
	Descr[83] = 'Sidi Bel Abbès, Algérie'
	pic[84] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=353'
	Descr[84] = 'Domaine agricole près de Sidi Bel Abbès, Algérie'
	pic[85] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=354'
	Descr[85] = 'Nid de cigognes près de Sidi Bel Abbès, Algérie'
	pic[86] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=355'
	Descr[86] = 'Oliviers entre Tlemcen et Sidi Abdelli, Algérie'
	pic[87] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=356'
	Descr[87] = 'Siège de l’Assemblée populaire communale de Sidi Bel Abbès, Algérie.'
	pic[88] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=357'
	Descr[88] = 'Sidi Bel Abbès, Algérie'
	pic[89] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=358'
	Descr[89] = 'Tlemcen, Algérie'
	pic[90] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=359'
	Descr[90] = 'Minaret et vestiges de la mosquée de Mansourah, wilaya de Tlemcen, Algérie (36°05’ N - 4°28’ E).'
	pic[91] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=360'
	Descr[91] = 'La Grande Mosquée de Tlemcen, Algérie'
	pic[92] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=361'
	Descr[92] = 'Ferme près de Boukhanefis, Algérie'
	pic[93] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=362'
	Descr[93] = 'Ferme près de Sidi Abdelli, Algérie'
	pic[94] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=363'
	Descr[94] = 'Vue générale sur la ville d’Oran, Algérie'
	pic[95] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=364'
	Descr[95] = 'Les arènes d’Oran, Algérie'
	pic[96] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=365'
	Descr[96] = 'Oran, Algérie'
	pic[97] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=366'
	Descr[97] = 'Immeuble de la chambre de commerce d’Oran, Algérie.'
	pic[98] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=367'
	Descr[98] = 'La gare d’Oran, Algéria'
	pic[99] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=368'
	Descr[99] = 'Salines d’Arzew dans la région d’Oran, Algérie.'
	pic[100] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=369'
	Descr[100] = 'Kristel, wilaya d’Oran, Algérie (35°49’ N - 0°29’ O).'
	pic[101] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=370'
	Descr[101] = 'Mostaganem, Algérie'
	pic[102] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=371'
	Descr[102] = 'L’Assemblée populaire communale de Mostaganem, Algérie'
	pic[103] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=372'
	Descr[103] = 'Le marché couvert de Béni Saf, Algérie'
	pic[104] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=373'
	Descr[104] = 'Béni Saf, Algérie'
	pic[105] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=374'
	Descr[105] = 'Mers el-Kebir, Algérie'
	pic[106] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=375'
	Descr[106] = 'Aïn El Turk, Algérie'
	pic[107] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=376'
	Descr[107] = 'Cap El-Melah et sa plage à l’ouest d’Oran, Algérie.'
	pic[108] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=377'
	Descr[108] = 'La côte de Ghazaouet, Algérie'
	pic[109] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=378'
	Descr[109] = 'La côte de Ghazaouet, Algérie'
	pic[110] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=379'
	Descr[110] = 'Chantier naval à Beni Saf, Algérie'
	pic[111] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=380'
	Descr[111] = 'Pêcheurs à Ghazaouet, Algérie'
	pic[112] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=381'
	Descr[112] = 'Maison à deux entrées à l’ouest du cap Falcon, Algérie.'
	pic[113] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=382'
	Descr[113] = 'Ancienne église face à la place centrale et au port, Ghazaouet, Algérie'
	pic[114] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=383'
	Descr[114] = 'Phare du Cap de l’aiguille au nord-Est d’Oran, Algérie (35°53’ N - 0°29’ O).'
	pic[115] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=384'
	Descr[115] = 'Village dans la wilaya d’El Tarf, Algérie'
	pic[116] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=385'
	Descr[116] = 'Cultures sur les falaises dans la région d’Oued El Melah, Algérie.'
	pic[117] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=386'
	Descr[117] = 'Cap d’Acra à l’ouest de Beni Saf, Algérie.'
	pic[118] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=387'
	Descr[118] = 'Oasis de Timimoun, Algérie (34°02’ N - 6°06’ E).'
	pic[119] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=388'
	Descr[119] = 'Oasis de Timimoun, Algérie (34°02’ N - 6°06’ E).'
	pic[120] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=389'
	Descr[120] = 'Ksar d’Ighzer et marabout de Sidi Abd Al Rahman, Algérie (29°23’ N - 0°20’ E).'
	pic[121] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=390'
	Descr[121] = 'Fort à Tinerkouk, Algérie'
	pic[122] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=391'
	Descr[122] = 'Oasis du Gourara, Algérie'
	pic[123] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=392'
	Descr[123] = 'Timimoun, Algérie'
	pic[124] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=393'
	Descr[124] = 'Oasis de Timimoun, Algérie (34°02’ N – 6°06’ E).'
	pic[125] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=394'
	Descr[125] = 'Puits de pétrole près de Rhourde Ennous, Algéria'
	pic[126] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=395'
	Descr[126] = 'Construction d’un pipeline près de Rhourde Ennous, Algérie.'
	pic[127] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=396'
	Descr[127] = 'Torchères près de Hassi Messaoud, Algérie'
	pic[128] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=397'
	Descr[128] = 'Cigognes dans l’oasis Bordj Omar Driss, Algérie (28°09’ N - 6°51’ E).'
	pic[129] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=398'
	Descr[129] = 'Cigognes dans l’oasis Bordj Omar Driss, Algérie (28°09’ N - 6°51’ E).'
	pic[130] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=399'
	Descr[130] = 'Oasis de Touggourt (meurt à cause de l’eau salée utilisée pour l’irrigation), Algérie (33°05’ N - 06°05’ E).'
	pic[131] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=400'
	Descr[131] = 'Le Hoggar, Massif de l’Atakor, Algérie (23°17’ N – 5°43’ E).'
	pic[132] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=401'
	Descr[132] = 'Le Hoggar, massif de l’Atakor, Wilaya de Tamanrasset, Algérie (23°16’ N – 5°38’ E).'
	pic[133] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=402'
	Descr[133] = 'Traces de campement Touareg près d’Assekrem, massif du Hoggar, Algérie (23°12’ N - 5°39’ E).'
	pic[134] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=403'
	Descr[134] = 'Tassili n’Ajjer, le massif de l’Adrar au nord de Djanet, Algérie.'
	pic[135] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=404'
	Descr[135] = 'Cratère volcanique dans le massif de l’Atakor, Algérie.'
	pic[136] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=405'
	Descr[136] = 'Plateau du Tassili n’Ajjer, Algérie'
	pic[137] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=406'
	Descr[137] = 'Forêt de pierres, plateau du Tassili n’Ajjer, Algérie (25°30’ N - 8°58’ E).'
	pic[138] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=407'
	Descr[138] = 'Parcelles cultivées près de Djanet, Algérie'
	pic[139] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=408'
	Descr[139] = 'Oasis d’Iherir, Algérie'
	pic[140] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=409'
	Descr[140] = 'Cultures à Djanet, Algérie'
	pic[141] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=410'
	Descr[141] = 'Djanet, Algérie'
	pic[142] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=411'
	Descr[142] = 'Dunes après la pluie dans l’Erg d’Admer près de Djanet, Wilaya d’Illizi, Algérie (24°23’ N - 9°23’ E).'
	pic[143] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=412'
	Descr[143] = 'Grand Erg occidental, Algérie'
	pic[144] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=413'
	Descr[144] = 'Grand Erg près de Djanet, Algérie (24°26’ N - 09°25’E).'
	pic[145] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=414'
	Descr[145] = 'Sépulture néolithique à enclos près de Tin-Amali, Algérie (24°25’ N - 9°32’ E).'
	pic[146] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=415'
	Descr[146] = 'Sépulture néolithique à enclos, au sud de Djanet, Tassili n’Ajjer, Algérie (24°26’ N – 9°34’ E).'
	pic[147] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=416'
	Descr[147] = 'Oasis d’El-Golea, Algérie'
	pic[148] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=417'
	Descr[148] = 'Maisons dans la palmeraie de Ghardaïa, Algérie'
	pic[149] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=448'
	Descr[149] = 'Site archéologique de Timgad, arc de Trajan, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[150] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=449'
	Descr[150] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[151] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=450'
	Descr[151] = 'Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[152] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=451'
	Descr[152] = 'La Médina de constantine, Algérie'
	pic[153] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=452'
	Descr[153] = 'Le centre-ville de Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[154] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=453'
	Descr[154] = 'Mosquée de l’Istiqlal, Constantine, Algérie.'
	pic[155] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=454'
	Descr[155] = 'Grande Mosquée Emir Abd el-Kader, Constantine, Algérie'
	pic[156] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=455'
	Descr[156] = 'Mausolée de Sidi Rached, Constantine, Algérie (36°22’ N - 6°37’ E).'
	pic[157] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=456'
	Descr[157] = 'Site archéologique de Tiddis, Algérie'
	pic[158] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=457'
	Descr[158] = 'Site archéologique de Tiddis, Algérie'
	pic[159] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=458'
	Descr[159] = 'Sources thermales d’Hammam Meskoutine, Algérie (36°26’ N - 7°16’ E).'
	pic[160] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=459'
	Descr[160] = 'Adolescents courant au milieu des sources thermales d’Hammam Meskoutine, Algérie (36°26’ N, 7°16’ E).'
	pic[161] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=460'
	Descr[161] = 'Les monts du Hodna sous la neige, près de El Hammadia, Algérie (35°55’ N – 4°47’ E).'
	pic[162] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=461'
	Descr[162] = 'El Mahdia, Algérie'
	pic[163] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=462'
	Descr[163] = 'Sétif, Algérie'
	pic[164] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=463'
	Descr[164] = 'Cité nouvelle à Sétif, Algérie'
	pic[165] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=464'
	Descr[165] = 'Centre-ville de Sétif, Algérie'
	pic[166] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=465'
	Descr[166] = 'La mairie de Tizi Ouzou, Algérie'
	pic[167] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=466'
	Descr[167] = 'Vue générale de Tizi Ouzou, Algérie'
	pic[168] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=467'
	Descr[168] = 'Paysage de Kabylie, Algérie'
	pic[169] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=468'
	Descr[169] = 'Paysage de Kabylie, Algérie'
	pic[170] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=469'
	Descr[170] = 'Tikjda, Algérie'
	pic[171] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=470'
	Descr[171] = 'Taourirt Amokrane, Algérie'
	pic[172] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=471'
	Descr[172] = 'Seddouk, Grande Kabylie, Algérie'
	pic[173] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=472'
	Descr[173] = 'Béjaïa, Algérie'
	pic[174] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=473'
	Descr[174] = 'Cité balnéaire près de Béjaïa, Algérie'
	pic[175] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=474'
	Descr[175] = 'Bejaïa, la ville, Algérie'
	pic[176] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=475'
	Descr[176] = 'Fort de Béjaïa, Algérie'
	pic[177] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=476'
	Descr[177] = 'Béjaïa, Algérie'
	pic[178] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=477'
	Descr[178] = 'Serres près de Jijel, Algérie'
	pic[179] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=478'
	Descr[179] = 'Jijel, Algérie'
	pic[180] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=479'
	Descr[180] = 'Collo, Algérie'
	pic[181] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=480'
	Descr[181] = 'Ziama Mansouria, Algérie'
	pic[182] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=481'
	Descr[182] = 'El Aouana (ex. Cavallo) à l’ouest de Jijel, Algérie (36°47’ N - 5°36’ E).'
	pic[183] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=482'
	Descr[183] = 'Skikda, Algérie'
	pic[184] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=483'
	Descr[184] = 'Pêcheurs sur la côte d’El Kala, Algérie.'
	pic[185] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=484'
	Descr[185] = 'Vue générale de Skikda, Algérie'
	pic[186] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=485'
	Descr[186] = 'Ras Hadid (cap de Fer) à l’est de Skikda, Algérie'
	pic[187] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=486'
	Descr[187] = 'Stora, à l’est de Skikda, Algérie.'
	pic[188] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=487'
	Descr[188] = 'Phare près de Stora, Algérie'
	pic[189] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=488'
	Descr[189] = 'Chetaibi, Algérie'
	pic[190] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=489'
	Descr[190] = 'Littoral près de la plage de Seraïdi au nord d’Annaba, Algérie (36°57’ N - 7°42’ E).'
	pic[191] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=490'
	Descr[191] = 'Paysage aux environs d’Amoucha, wilaya de Sétif, Algérie (36°08’ N - 7°30’ E).'
	pic[192] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=491'
	Descr[192] = 'Plaine d’El Mahdia, Algérie'
	pic[193] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=492'
	Descr[193] = 'El Mahdia, Algérie'
	pic[194] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=493'
	Descr[194] = 'Théâtre romain de Guelma, Algérie (36°28’ N - 7°26’ E).'
	pic[195] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=494'
	Descr[195] = 'Guelma, Algérie'
	pic[196] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=495'
	Descr[196] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[197] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=496'
	Descr[197] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[198] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=497'
	Descr[198] = 'Site archéologique de Djemila, Kabylie, Algérie (36°19’ N – 5°42’ E).'
	pic[199] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=498'
	Descr[199] = 'Annaba, Algérie'
	pic[200] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=499'
	Descr[200] = 'Annaba, Algérie'
	pic[201] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=500'
	Descr[201] = 'Basilique Saint-Augustin à Annaba, Algérie'
	pic[202] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=501'
	Descr[202] = 'Cap rosa, près d’Annaba, Algérie.'
	pic[203] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=502'
	Descr[203] = 'Lac Bleu dans le Parc National El Kala, Algérie'
	pic[204] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=503'
	Descr[204] = 'Lac Tonga dans le parc national d’El-Kala, Algérie.'
	pic[205] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=504'
	Descr[205] = 'Cimetière chrétien d’El-Kala, Algérie'
	pic[206] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=505'
	Descr[206] = 'El-Kala (La Cale), Algérie'
	pic[207] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=506'
	Descr[207] = 'Bastion de France, Algérie'
	pic[208] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=507'
	Descr[208] = 'Chott Merouane, entre Biskra et El Oued, Algérie'
	pic[209] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=447'
	Descr[209] = 'Timgad, l’arc de Trajan, wilaya de Batna, Algérie (35°29’ N- 6°28’ E).'
	pic[210] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=431'
	Descr[210] = 'Cité nouvelle à El-Oued, Algérie'
	pic[211] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=430'
	Descr[211] = 'Cimetière à El-Goléa, Algérie'
	pic[212] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=429'
	Descr[212] = 'El-Oued, la ville aux mille coupoles, Algérie'
	pic[213] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=428'
	Descr[213] = 'Le siège de la wilaya d’El-Oued, Algérie'
	pic[214] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=427'
	Descr[214] = 'Végétation au creux des dunes, environs d’El-Oued, Algérie (33°25 N – 6°57’ E).'
	pic[215] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=426'
	Descr[215] = 'Irrigation près de l’oasis d’El-Oued, Algérie (33°22’ N – 6°52’ E).'
	pic[216] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=425'
	Descr[216] = 'Vol de flamants roses, Ouargla, Algérie (24°00’ N – 8°00’ E).'
	pic[217] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=424'
	Descr[217] = 'Une rue de Beni Izguen, Algérie'
	pic[218] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=423'
	Descr[218] = 'Beni Izguen, Algérie'
	pic[219] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=422'
	Descr[219] = 'Ville de Ghardaïa dans la vallée du M’Zab, Algérie (32°29’ N - 3°40’ E).'
	pic[220] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=421'
	Descr[220] = 'École à Ghardaïa, Algérie (32°31’ N – 3°37’ E).'
	pic[221] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=420'
	Descr[221] = 'Minaret de Ghardaïa, Algérie (32°29’ N - 3°40’ E).'
	pic[222] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=432'
	Descr[222] = 'Palmeraie de l’oasis d’El-Oued, Algérie'
	pic[223] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=433'
	Descr[223] = 'Mont du M’zab, wilaya de Ghardaïa, Algérie (32°65’ N - 3°42’ E).'
	pic[224] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=434'
	Descr[224] = 'Barrage de Foum El Gherza sur le canyon de l’oued El Abiod, Wilaya de Biskra, Algérie (34°57’ N - 6°00’ E).'
	pic[225] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=446'
	Descr[225] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[226] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=445'
	Descr[226] = 'Site archéologique de Timgad, wilaya de Batna, Algérie (35°29’ N - 6°28’ E).'
	pic[227] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=444'
	Descr[227] = 'Touristes dans le <i>cardo maximus</i> de Timgad, Algérie'
	pic[228] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=443'
	Descr[228] = 'Chott Merouane, entre Biskra et El Oued, Algérie (34°02’ N – 6°06’ E).'
	pic[229] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=442'
	Descr[229] = 'Les Gorges du Rhoufi, Algérie'
	pic[230] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=441'
	Descr[230] = 'Le Rhoufi, Algérie'
	pic[231] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=440'
	Descr[231] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[232] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=439'
	Descr[232] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[233] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=438'
	Descr[233] = 'Vallée de l’oued El-Abiod, Massif des Aurès, Algérie (35°05’ N – 6°10’ E).'
	pic[234] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=437'
	Descr[234] = 'Massif des Aurès, Algérie'
	pic[235] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=436'
	Descr[235] = 'Chott Hodna, Algérie'
	pic[236] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=435'
	Descr[236] = 'Barrage à El Kantara, palmeraie inondée, Massif des Aurès, Algérie (35° 07’ N - 5°36’ E).'
	pic[237] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=419'
	Descr[237] = 'El Atteuf, vallée du M’Zab, Algérie (32°27’ N – 3°44’ E).'
	pic[238] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=418'
	Descr[238] = 'Beni Izguen, vallée du M’Zab, Algérie (32°29’ N - 3°40’ E).'
	pic[239] = 'http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=269'
	Descr[239] = 'Mosquée dans un quartier de El Oued, Wilaya d’ El Oued, Algérie (33°22’ N - 6°52’ E).'

	For i=1 To 239
		Wait Window pic(i) Nowait
		Insert Into ycurs Values (pic(i),Descr(i),"","img"+Trans(i))
	Endfor
*brow
	Locate
	Endproc

	Procedure Activate
	Sele ycurs
*brow
	N=Reccount()
	Thisform.Caption="Algeria seen from the sky  -www.yannarthusbertrand2.org"+" ["+Trans(N)+"images]   Click on image to save it to disc."
	Endproc

	Procedure ylab1.Click
	Sele ycurs
	Try
		Skip-1
	Catch
		Locate
	Endtry
	Thisform.timer1.Reset()
	Thisform.yrequest()
	Endproc

	Procedure ylab2.Click
	Sele ycurs
	Try
		Skip
	Catch
		Locate
	Endtry
	Thisform.timer1.Reset()
	Thisform.yrequest()
	Endproc

	Procedure timer2.Timer
	Sele ycurs
	Try
		Skip
	Catch
		Locate
	Endtry
	Thisform.yrequest()
	Endproc

Enddefine
*
*-- EndDefine: ywebImg



Note: there is some coma (') errors in descr(i) but that dont affect result....
Note: there is some coma (') errors in descr(i) but that dont affect result....
Note: there is some coma (') errors in descr(i) but that dont affect result....
Note: there is some coma (') errors in descr(i) but that dont affect result....

Note: there is some coma (') errors in descr(i) but that dont affect result....

Click on code to select [then copy] -click outside to deselect

                        
 *5* created on 7 of december 2016
*this adds an image control as wallpaper  on vfp _screen and populate it with a web image (internet connected)
With _Screen
	Try
		.AddObject("image1","image")
	Catch
	Endtry
	Local loRequest,lcUrl
	m.lcUrl="http://www.algerie-focus.com/wp-content/uploads/2014/12/B%C3%A9char-Taghit_20-d%C3%A9cembre-2014.jpg"

	m.loRequest = Createobject('MsXml2.XmlHttp')
	m.loRequest.Open("GET",lcUrl,.F.)
	m.loRequest.Send()
	With .image1
		.Width=.Parent.Width
		.Height=.Parent.Height
		.Left=0
		.Top=0
		.PictureVal=m.loRequest.ResponseBody
		.Visible=.T.
	Endwith
Endwith
m.loRequest=Null


to cut this wallpaper issue on vfp command:_screen.removeObject("image1")

to cut this wallpaper issue on vfp command:_screen.removeObject("image1")

Click on code to select [then copy] -click outside to deselect

                        
*6* created on 21 of december 2016
*this uses image control pictureVal property downloaded as blob string with xmlHTTP responseBody.
*it fills an image control (not the form.picture..for this must download the image as picture file to disc..this uses only memory no disc).
*it makes the form with web background (animated or no).
*internet must be connected for the form.init operation.

Publi yform
yform=Newobject("ystarry")
yform.Show
Read Events
Retu
*
Define Class ystarry As Form
	BorderStyle = 0
	Height = 250
	Width = 494
	ShowWindow = 2
	ShowTips = .T.
	AutoCenter = .T.
	Caption = "Put web animated gif (or image)as  form background"
	Name = "Form1"

	Add Object image1 As Image With ;
		Anchor = 15, ;
		Stretch = 2, ;
		Height = 253, ;
		Left = 0, ;
		Top = 0, ;
		Width = 493, ;
		Name = "Image1"

	Add Object grid1 As Grid With ;
		Anchor = 15, ;
		Height = 145, ;
		Left = 144, ;
		Top = 48, ;
		Width = 216, ;
		Name = "Grid1"

	Add Object shape1 As Shape With ;
		Top = 10, ;
		Left = 468, ;
		Height = 15, ;
		Width = 15, ;
		Anchor = 768, ;
		Curvature = 99, ;
		MousePointer = 15, ;
		ToolTipText = "Fullscreen on/off", ;
		BackColor = Rgb(0,255,0), ;
		Name = "Shape1"

	Procedure Destroy
		Clea Events
	Endproc

	Procedure Init
		Thisform.WindowState=2

		*this uses my technic to link a web image without any trace on disc (memory only)
		Local loRequest,lcUrl
		m.lcUrl="https://s-media-cache-ak0.pinimg.com/originals/e1/a0/ef/e1a0ef685ab2c885a3b837db6f6ebd6d.gif"
		Try
			m.loRequest = Createobject('MsXml2.XmlHttp')
			m.loRequest.Open("GET",lcUrl,.F.)
			m.loRequest.Send()
			Thisform.image1.PictureVal=m.loRequest.ResponseBody
			m.loRequest=Null
		Catch
		Endtry

	Endproc

	Procedure grid1.Init
		Sele * From Home(1)+"samples\data\customer" Into Cursor ycurs
		With This
			.Themes=.F.
			.RecordSource="ycurs"
			.GridLines=0
			.DeleteMark=.F.
			.AllowCellSelection=.F.
			.HeaderHeight=25
			For i=1 To .ColumnCount
				With .Columns(i).header1
					.FontBold=.T.
					.FontSize=14
					.ForeColor=255
					.BackColor=0
				Endwith
			Endfor
			.SetAll("DynamicBackColor","IIF(MOD(RECNO( ), 2)=0, RGB(215,225,210) , RGB(0,255,0))", "Column")
			.AutoFit()
			Locate
		Endwith
	Endproc

	Procedure shape1.Click
		With Thisform
			.LockScreen=.T.
			.TitleBar=Iif(.TitleBar=1,0,1)
			If .TitleBar=0
				.Height=.Height+31
			Else
				.Height=.Height-31
			Endi
			.LockScreen=.F.
		Endwith
	Endproc

Enddefine
*
*-- EndDefine: ystarry


Displaying web images directly on a vfp9 form (avoiding disc)

Click on code to select [then copy] -click outside to deselect

*7* created on 30 december 2016
*a splash form to start any application.internet connected.here its a top level form(alwaysOnTop).
*a web picture is requested to populate the pictureVal image property

_Screen.WindowState=1

Publi yform
yform=Newobject("ysplash")
yform.Show
*do.....  &&to continue
messagebox("Continue the code here...",0+32+4096,'',1200)
Retu

Define Class ysplash As Form
	Height = 485
	Width = 640
	AutoCenter = .T.
	AlwaysOnTop=.T.
	ShowWindow=2
	BorderStyle = 0
	BackColor=0
	TitleBar=1
	Caption = ""
	Movable = .F.
	nduration =7  && This is duration in seconds to display splash screen.
	Name = "ysplash"

	Add Object label1 As Label With ;
		FontBold = .T., ;
		FontSize = 24, ;
		BackStyle = 0, ;
		autosize=.T.,;
		forecolor=Rgb(255,128,128),;
		Caption = "My splash Screen", ;
		Height = 40, ;
		Left = 132, ;
		Top = 430, ;
		Width = 223, ;
		Name = "Label1"

	Add Object label2 As Label With ;
		FontSize = 16, ;
		fontbold=.T.,;
		BackStyle = 0, ;
		autosize=.T.,;
		forecolor=Rgb(0,255,0),;
		Caption = "", ;
		Height = 27, ;
		Left = 145, ;
		Top = 430+16, ;
		Name = "Label2"

	Add Object Image As Image With ;
		anchor=15,;
		picture=""   ,;
		stretch=2,;
		left=0,;
		top=0,;
		width=640,;
		height=430,;
		name="image1"

	Procedure Init
		This.TitleBar=0
		This.label1.Left=(Thisform.Width-This.label1.Width)/2
		This.label2.Left=This.label1.Left+This.label1.Width+80
		Local loRequest,lcUrl
		m.lcUrl="http://www.algerie-monde.com/hotels/el-bayadh/ksar-boussemghoun-el-bayadh.jpg"
		Try
			m.loRequest = Createobject('MsXml2.XmlHttp')
			m.loRequest.Open("GET",lcUrl,.F.)
			m.loRequest.Send()
			Thisform.image1.PictureVal=m.loRequest.ResponseBody
			m.loRequest=Null
		Catch
		Endtry
	Endproc

	Procedure Activate
		This.TitleBar=0
		This.ForeColor=Rgb(0,255,0)
		This.DrawWidth=4
		This.Picture = This.Picture
		This.Circle(22,This.label2.Left+7,This.label2.Top+12)
		Local t1
		t1 = Seconds()
		Do While (Seconds()- m.t1)<This.nduration
			Thisform.label2.Caption=Trans(Int(Seconds()- m.t1))

		Enddo
		Thisform.Release
	Endproc

Enddefine
*
*-- EndDefine: ysplash


Displaying web images directly on a vfp9 form (avoiding disc)

Click on code to select [then copy] -click outside to deselect

*8* created on 13 of march 2017
*!* how to get the type of file downloaded from web  with urlDownloadtofile and xmlhttp protocole?
*!*	-urlDownloadtofile api can download any web file but must give it a name and extension in disc yourself.
*!*https://msdn.microsoft.com/en-us/library/ms775123(v=vs.85).aspx
*!*by luck if the url have an extension  must choose the same extension to make the downloaded file available.

*!*	- the code below at least can give you the type of the file downloaded (mime or content-type) to decide what
*!*   extension to give to the downloaded file.

Local loRequest,lcUrl

m.lcUrl="http://img.over-blog-kiwi.com/1/43/54/07/20160313/ob_1f4998_sam-2260-resized.JPG"
m.loRequest = Createobject('MsXml2.XmlHttp')
m.loRequest.Open("HEAD",lcUrl,.F.)
m.loRequest.Send()
Messagebox( m.lcUrl+Chr(13)+"content-type="+m.loRequest.getResponseHeader("content-type"))
Messagebox(m.lcUrl+Chr(13)+ "AllResponseHeaders:"+Chr(13)+m.loRequest.getAllResponseHeaders)
m.loRequest=Null



Click on code to select [then copy] -click outside to deselect


*9*
*created on thursday 19 of october 2017
*a control  image (image1) contains 136 thumbs (pasted).(can be achieved programmatly with gdiplus or gdiplusX).
*136 transparent shapes are created for making hot spot area on each thumb with their exact dimensions.
*click on any thumb to see it in image2 (stretched)
*all images are on the web (internet must be connected and some fast).
*note links can be broken...this is for illustration only.Make custom ones.
*the viewPort form property is used here to make the image always at the top form.
*this code is destined to a screen with 32 inches.

Publi yform
yform=Newobject("yphotos")
yform.Show
Read Events
Retu
*
Define Class yphotos As Form
	Top = 0
	Left = 0
	Height = 676
	Width = 1266
	ShowWindow = 2
	ScrollBars = 2
	Caption = "Form1"
	BackColor = Rgb(0,0,0)
	Name = "Form1"

	Add Object image1 As Image With ;
		BorderStyle = 1, ;
		Height = 1836, ;
		Left = 0, ;
		Top = 0, ;
		Width = 320, ;
		Name = "Image1"

	Add Object image2 As Image With ;
		Anchor = 15, ;
		Stretch = 2, ;
		Height = 709, ;
		Left = 324, ;
		Top = -1, ;
		Width = 973, ;
		Name = "Image2"

	Add Object shape1 As Shape With ;
		Top = 0, ;
		Left = 0, ;
		Height = 52, ;
		Width = 80, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Name = "Shape1"

	Procedure Activate
		*form caption is a bug when windowstate=2 (dont show)
		With  Thisform
			.Width=.Width-1
			Inke(0.1)
			.Width=.Width+1
		Endwith
	Endproc

	Procedure my
		Lparameters nButton, nShift, nXCoord, nYCoord
		*--- aevent create an array laEvents
		Aevents( myArray, 0)
		*--- reference the calling object
		loObject = myArray[1]
		Sele ycurs
		Go Int(Val(Substr(loObject.Name,4)))
		Thisform.yreq(xurl)
	Endproc

	Procedure yreq
		Lparameters url
		Local loRequest
		m.lcUrl=Allt(url)
		m.loRequest = Createobject('MsXml2.XmlHttp')
		m.loRequest.Open("GET",lcUrl,.F.)
		m.loRequest.Send()
		Thisform.image2.PictureVal=m.loRequest.ResponseBody
		m.loRequest=Null
		Thisform.SetViewPort(Thisform.ViewPortLeft,0)   &&make to image on top of form area
	Endproc

	Procedure Destroy
		Clea Events
	Endproc

	Procedure Init
		With Thisform
			k=0
			For i=1 To 136   &&136 thumbs left image1
				.AddObject("shp"+Trans(i),'shape')
				With Eval(".shp"+Trans(i))
					.Height = 54
					.Width = 80
					k=k+1
					If k<=4
						Try
							.Top = Eval("thisform.shp"+Trans(i-1)+".top")
							u=.Top
						Catch
						Endtry
						.Left = (k-1)*.Width

					Else

						k=1
						.Top=u+.Height
						.Left= (k-1)*.Width
					Endi
					.BackStyle=0
					.BorderStyle=0
					.MousePointer=15
					.Visible=.T.
				Endwith
				Bindevent(Eval(".shp"+Trans(i)),"mousedown",Thisform,"my")
			Endfor
		Endwith

		Thisform.WindowState=2
		Thisform.Caption=Trans(Reccount())+" images"
		Thisform.shp1.MouseDown(1)
	Endproc

	Procedure Load
		Set Memo To 8192
		Local m.myvar
		TEXT to m.myvar noshow
		http://imageslidermaker.com/ism/image/slides/above-736879_1280.jpg
		http://imageslidermaker.com/ism/image/slides/aircraft-479772_1280.jpg
		http://imageslidermaker.com/ism/image/slides/amazing-701679_1280.jpg
		http://imageslidermaker.com/ism/image/slides/architecture-22039_1280.jpg
		http://imageslidermaker.com/ism/image/slides/background-2276_1280.jpg
		http://imageslidermaker.com/ism/image/slides/background-2561_1280.jpg
		http://imageslidermaker.com/ism/image/slides/bananas-698608_1280.jpg
		http://imageslidermaker.com/ism/image/slides/barley-373360_1280.jpg
		http://imageslidermaker.com/ism/image/slides/beach-hut-237489_1280.jpg
		http://imageslidermaker.com/ism/image/slides/beautiful-701678_1280.jpg
		http://imageslidermaker.com/ism/image/slides/biker-384920_1280.jpg
		http://imageslidermaker.com/ism/image/slides/bl_15826.jpg
		http://imageslidermaker.com/ism/image/slides/bl_16510.jpg
		http://imageslidermaker.com/ism/image/slides/bl_310.jpg
		http://imageslidermaker.com/ism/image/slides/bokeh-715283_1280.jpg
		http://imageslidermaker.com/ism/image/slides/bora-bora-685303_1280.jpg
		http://imageslidermaker.com/ism/image/slides/bora-bora-701857_1280.jpg
		http://imageslidermaker.com/ism/image/slides/border-collie-667488_1280.jpg
		http://imageslidermaker.com/ism/image/slides/br_2225.jpg
		http://imageslidermaker.com/ism/image/slides/budapest-655216_1280.jpg
		http://imageslidermaker.com/ism/image/slides/butterfly-730430_1280.jpg
		http://imageslidermaker.com/ism/image/slides/car-604019_1280.jpg
		http://imageslidermaker.com/ism/image/slides/central-park-142894_1280.jpg
		http://imageslidermaker.com/ism/image/slides/chain-690088_1280.jpg
		http://imageslidermaker.com/ism/image/slides/chainlink-690503_1280.jpg
		http://imageslidermaker.com/ism/image/slides/chicago-690364_1280.jpg
		http://imageslidermaker.com/ism/image/slides/chioggia-571381_1280.jpg
		http://imageslidermaker.com/ism/image/slides/city-647400_1280.jpg
		http://imageslidermaker.com/ism/image/slides/city-690332_1280.jpg
		http://imageslidermaker.com/ism/image/slides/city-691279_1280.jpg
		http://imageslidermaker.com/ism/image/slides/city-698616_1280.jpg
		http://imageslidermaker.com/ism/image/slides/coastal-landscape-356767_1280.jpg
		http://imageslidermaker.com/ism/image/slides/colored-pencils-686679_1280.jpg
		http://imageslidermaker.com/ism/image/slides/cube-689618_1280.jpg
		http://imageslidermaker.com/ism/image/slides/cycling-655565_1280.jpg
		http://imageslidermaker.com/ism/image/slides/dinner-table-663435_1280.jpg
		http://imageslidermaker.com/ism/image/slides/dirt-bike-690770_1280.jpg
		http://imageslidermaker.com/ism/image/slides/divers-681516_1280.jpg
		http://imageslidermaker.com/ism/image/slides/document-428331_1280.jpg
		http://imageslidermaker.com/ism/image/slides/document-428338_1280.jpg
		http://imageslidermaker.com/ism/image/slides/earth-11009_1280.jpg
		http://imageslidermaker.com/ism/image/slides/eat-321671_1280.jpg
		http://imageslidermaker.com/ism/image/slides/entrepreneur-593358_1280.jpg
		http://imageslidermaker.com/ism/image/slides/euro-163475_1280.jpg
		http://imageslidermaker.com/ism/image/slides/flame-726268_1280.jpg
		http://imageslidermaker.com/ism/image/slides/flower-729514_1280.jpg
		http://imageslidermaker.com/ism/image/slides/font-705667_1280.jpg
		http://imageslidermaker.com/ism/image/slides/girl-429380_1280.jpg
		http://imageslidermaker.com/ism/image/slides/girls-685787_1280.jpg
		http://imageslidermaker.com/ism/image/slides/gold-163519_1280.jpg
		http://imageslidermaker.com/ism/image/slides/golden-gate-bridge-388917_1280.jpg
		http://imageslidermaker.com/ism/image/slides/gr_1903.jpg
		http://imageslidermaker.com/ism/image/slides/gr_22057.jpg
		http://imageslidermaker.com/ism/image/slides/gr_23551.jpg
		http://imageslidermaker.com/ism/image/slides/gr_41495.jpg
		http://imageslidermaker.com/ism/image/slides/green-654402_1280.jpg
		http://imageslidermaker.com/ism/image/slides/hands-600497_1280.jpg
		http://imageslidermaker.com/ism/image/slides/harley-davidson-459594_1280.jpg
		http://imageslidermaker.com/ism/image/slides/hawker-539490_1280.jpg
		http://imageslidermaker.com/ism/image/slides/home-office-336373_1280.jpg
		http://imageslidermaker.com/ism/image/slides/home-office-336377_1280.jpg
		http://imageslidermaker.com/ism/image/slides/lamborghini-593105_1280.jpg
		http://imageslidermaker.com/ism/image/slides/lamborghini-618356_1280.jpg
		http://imageslidermaker.com/ism/image/slides/lion-721836_1280.jpg
		http://imageslidermaker.com/ism/image/slides/machu-pichu-639174_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mars-67522_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mirroring-711926_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mobile-616012_1280.jpg
		http://imageslidermaker.com/ism/image/slides/money-256281_1280.jpg
		http://imageslidermaker.com/ism/image/slides/money-93206_1280.jpg
		http://imageslidermaker.com/ism/image/slides/moon-landing-60582_1280.jpg
		http://imageslidermaker.com/ism/image/slides/moorea-681289_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mosque-615415_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mother-board-581597_1280.jpg
		http://imageslidermaker.com/ism/image/slides/motorbike-407186_1280.jpg
		http://imageslidermaker.com/ism/image/slides/motorcycle-293571_1280.jpg
		http://imageslidermaker.com/ism/image/slides/motorcycle-racer-597913_1280.jpg
		http://imageslidermaker.com/ism/image/slides/mountains-392669_1280.jpg
		http://imageslidermaker.com/ism/image/slides/needle-672396_1280.jpg
		http://imageslidermaker.com/ism/image/slides/new-york-670108_1280.jpg
		http://imageslidermaker.com/ism/image/slides/new-york-city-78181_1280.jpg
		http://imageslidermaker.com/ism/image/slides/office-620822_1280.jpg
		http://imageslidermaker.com/ism/image/slides/or_1282.jpg
		http://imageslidermaker.com/ism/image/slides/or_565.jpg
		http://imageslidermaker.com/ism/image/slides/park-737228_1280.jpg
		http://imageslidermaker.com/ism/image/slides/pier-569314_1280.jpg
		http://imageslidermaker.com/ism/image/slides/plane-170272_1280.jpg
		http://imageslidermaker.com/ism/image/slides/pool-690034_1280.jpg
		http://imageslidermaker.com/ism/image/slides/pool-720697_1280.jpg
		http://imageslidermaker.com/ism/image/slides/railway-692337_640.jpg
		http://imageslidermaker.com/ism/image/slides/rainbow-lorikeet-686100_1280.jpg
		http://imageslidermaker.com/ism/image/slides/road-690087_1280.jpg
		http://imageslidermaker.com/ism/image/slides/rock-540130_1280.jpg
		http://imageslidermaker.com/ism/image/slides/rocket-launch-67643_1280.jpg
		http://imageslidermaker.com/ism/image/slides/salad-652503_1280.jpg
		http://imageslidermaker.com/ism/image/slides/sand-dunes-691431_1280.jpg
		http://imageslidermaker.com/ism/image/slides/sea-701079_1280.jpg
		http://imageslidermaker.com/ism/image/slides/seagull-487726_1280.jpg
		http://imageslidermaker.com/ism/image/slides/shish-kebab-417994_1280.jpg
		http://imageslidermaker.com/ism/image/slides/singapore-431421_1280.jpg
		http://imageslidermaker.com/ism/image/slides/singapore-river-255116_1280.jpg
		http://imageslidermaker.com/ism/image/slides/sky-690293_1280.jpg
		http://imageslidermaker.com/ism/image/slides/skydiving-678168_1280.jpg
		http://imageslidermaker.com/ism/image/slides/smartphone-431230_1280.jpg
		http://imageslidermaker.com/ism/image/slides/smartphone-623722_1280.jpg
		http://imageslidermaker.com/ism/image/slides/smartphone-695164_1280.jpg
		http://imageslidermaker.com/ism/image/slides/soldier-708711_1280.jpg
		http://imageslidermaker.com/ism/image/slides/sparkler-677774_1280.jpg
		http://imageslidermaker.com/ism/image/slides/spike-8743_1280.jpg
		http://imageslidermaker.com/ism/image/slides/statue-of-liberty-267948_1280.jpg
		http://imageslidermaker.com/ism/image/slides/stock-624712_1280.jpg
		http://imageslidermaker.com/ism/image/slides/stop-634941_1280.jpg
		http://imageslidermaker.com/ism/image/slides/strawberries-272812_1280.jpg
		http://imageslidermaker.com/ism/image/slides/summer-192179_1280.jpg
		http://imageslidermaker.com/ism/image/slides/sunset-86214_1280.jpg
		http://imageslidermaker.com/ism/image/slides/taxi-cab-381233_1280.jpg
		http://imageslidermaker.com/ism/image/slides/telephone-586268_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tiger-655593_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tomato-663097_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tomatoes-5356_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tomatoes-73913_1280.jpg
		http://imageslidermaker.com/ism/image/slides/toronto-698496_1280.jpg
		http://imageslidermaker.com/ism/image/slides/traffic-691870_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tree-701688_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tree-701692_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tree-736887_1280.jpg
		http://imageslidermaker.com/ism/image/slides/tulips-708410_1280.jpg
		http://imageslidermaker.com/ism/image/slides/wh_11696.jpg
		http://imageslidermaker.com/ism/image/slides/wh_22125.jpg
		http://imageslidermaker.com/ism/image/slides/wh_45752.jpg
		http://imageslidermaker.com/ism/image/slides/white-tailed-eagle-660907_1280.jpg
		http://imageslidermaker.com/ism/image/slides/woman-506120_1280.jpg
		http://imageslidermaker.com/ism/image/slides/woman-731887_1280.jpg
		http://imageslidermaker.com/ism/image/slides/woodland-656969_1280.jpg
		http://imageslidermaker.com/ism/image/slides/ye_10593.jpg
		http://imageslidermaker.com/ism/image/slides/ye_25419.jpg
		ENDTEXT
		Create Cursor ycurs (xurl c(200))
		For i=1 To Memlines(m.myvar)
			Insert Into ycurs Values (Mline(m.myvar,i))
		Endfor
		*brow
	Endproc

	Procedure image1.Init
		Local loRequest
		m.lcUrl="http://imageslidermaker.com/img/thumbnails.jpg"
		m.loRequest = Createobject('MsXml2.XmlHttp')
		m.loRequest.Open("GET",lcUrl,.F.)
		m.loRequest.Send()
		This.PictureVal=m.loRequest.ResponseBody
		m.loRequest=Null
		Thisform.SetViewPort(Thisform.ViewPortLeft,0)   &&make to image on top of form area
	Endproc


Enddefine
*
*-- EndDefine: yphotos


click on any thumb in image left to show the original big on the right.

click on any thumb in image left to show the original big on the right.

Important:All Codes above are tested on VFP9SP2 & windows 10 pro and IE11 emulation.

To be informed of the latest articles, subscribe:
Comment on this post