درخواست سورس | نمایش عکس از نت | فوری

[matori73]

سلام دوستان
من یک مبتدی هستم و ممنون میشم به من کمک کنید



من میخوام عکسی که از هاست گرفته میشه در یک Picturebox یا Image نمایش داده بشه چون با وب بروزر که این کارو کردم، اسکرول ظاهر میشد و ...
(اگر بتونید آموزش بدید که اسکرول و کادر و .. در وب بروزر حذف بشن کفایت میکنه، چون میخوام فقط یک عکس رو نشون بده، همین)


ممنون میشم اگر آموزش فراخوانی عکس از هاست رو در یک Picturebox در اختیارم قرار بدید ؟

و یک سوال بی ربط : یک فرم ساختم و در اون فرم یک عکس با فرمت jpg قرار دادم، موقع اجرای فرم، در عکس نقاط سفیدی ظاهر میشن، علت چی هست ؟ در حالیکه کیفیت عکس هم بالاست و مشکلی وجود نداره

تشکر

[setroyd]

Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo ERR_LINE
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
ERR_LINE:
Set LoadPicture = VB.LoadPicture(strFileName)
End Function


Private Sub Command1_Click()
Image1.Picture = LoadPicture("http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg")
End Sub




یه image بزار رو صفحه

و بجای http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg ادرس مورد نظر رو بزار من مثال زدم که شما نحوه ی ادرس دادن رو بدونی .
مشکل شما میتونه از کد یا عکس یا... باشه upload کن ببینم از چیه .

[matori73]

Private Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As LongPublic Function LoadPicture(ByVal strFileName As String) As PictureDim IID As TGUID With IID .Data1 = &H7BF80980 .Data2 = &HBF32 .Data3 = &H101A .Data4(0) = &H8B .Data4(1) = &HBB .Data4(2) = &H0 .Data4(3) = &HAA .Data4(4) = &H0 .Data4(5) = &H30 .Data4(6) = &HC .Data4(7) = &HAB End WithOn Error GoTo ERR_LINE OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture Exit FunctionERR_LINE: Set LoadPicture = VB.LoadPicture(strFileName)End Function Private Sub Command1_Click()Image1.Picture = LoadPicture("http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg")End Subیه image بزار رو صفحهو بجای http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg ادرس مورد نظر رو بزار من مثال زدم که شما نحوه ی ادرس دادن رو بدونی .مشکل شما میتونه از کد یا عکس یا... باشه upload کن ببینم از چیه .
سلام ممنون ...... ببخشید این رو استفاده کردم درست بود اما وقتی با چند تابع دیگر تعریف می کنم برنامه ارور می ده ارور هم این هست :
compile error
only comments may appear after end sub , end function , or end property ........
مشکل از کجا هست ؟

[setroyd]

مشکل از کدهای دیگه شماس در کد هم مشاهده میشه که از function یا...... شماس که در موقع کامپایل این ارور میاد . این کد کد سالمه وتست شده .

[matori73]

درود
مشکل از کدهای شما نبوده و رفع شد ، تشکر

ولی یک مشکل دیگر وجود داره، اینکه وقتی تصویر رو در هاست عوض میکنم، در برنامه، تغییری نمیکنه

ممنون میشم راهنمایی بفرمایید که چکار کنم که هر بار که برنامه اجرا میشه، عکس رو از نو لود کنه و کش نکنه

[setroyd]

برای اینکه دوست من شما برنامه رو در حالتی گذاشتی که فقط یکبار load میکنه و تمام، نه شما بیا یک time بزار و هر چند ثانیه اینو چک کن مثلا interval رو بزار رو 10000 برابر با 10 ثانیه و اون کد رو داخلش کپی کن و بعد برو تو هاست و راحت عکس رو عوض کن دیگه دیر ترین حالت load شما میشه 10 سانیه تاخیر، منظورمو متوجه شدی ؟ اگه نه بگو برات بیشتر توضیح بدم .

[matori73]

صبح بخیر
ممنون از پاسخگوییتون
بله در صورت امکان بیشتر توضیح بدید و اینکه من روزانه یک بار و در خوشاندترین حالت، میخوام 3 بار تصویر رو در هاست تغییر بدم

[setroyd]

Image1.Picture = LoadPicture("http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg")


از کد بالا این قسمت که فراخوانی کد هست بزار تو time و Interval تایمر رو بکن 10000 درست میشه .

[matori73]

تست کردم، بی فایده بود و تصویر در برنامه عوض نمیشه

د هاست 4 بار تصویر را عوض کردم ولی در برنامه هیچ تغییری رخ نداد، مقدار تایمر رو هم کم و زیاد کردم و باز نتیجه ای حاصل نشد

[vbhamed]

سلام
مي‌توني از فايل .htaccess روي هاست هم استفاده كني، دستورات زير براي تعيين تاريخ انقضاء براي Cache فايلهاي هستند، تحقيق بيشتر با خودت

## EXPIRES CACHING ##
ExpiresActive On
ExpiresByType image/jpg "access plus 1 month"

اين سایت ها رو هم ببين
http://www.webpagetest.org/forums/archive/index.php?thread-11902.html

http://snipplr.com/view/4265/