˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  ͺõͺ...
2017-02-22 13:10:24
  ͧաԸ¹ recursive f...
2017-02-14 13:11:03
  ҡ кͧشҡ...
2017-01-30 11:45:28
  for-loop ͹ѹ
...

2017-01-28 16:00:12
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] ...
2017-08-20 08:53:10
  [b]
2017-08-11 22:39:58
  [b]
...

2017-08-11 14:46:33
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  vs2008 c# Ѻ ͺسѺ...
2016-06-17 14:39:30
  vs c# ӵآ鹵͹...
2016-06-17 14:37:44
  ͧѺ "Ҩԧ ...
2016-03-12 23:36:05
  觢ͤǧ LAN ੾Ф...
2016-03-12 18:25:42
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
ʴʶҹСôǹŴྨ (ҹ 18,429)
Ԩ ͧ (9'M) : Ԩ ͧ (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: Ŵҧ (Ŵ 4,276 )

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
FreelanceѺѲ 9'M 

㹺Ҩ ṹ Internet Transfer Control (ITC) ͹ 㹡¹ Ѻ觢ŷҧԹ ǹͧ ʴʶҹСôǹŴѧ觼ҹ㹢й ѹд Ҥ͹Ź ; DownloadProgress ǹ DataArrival parameter ö.

Ҩ 2 ʹͧ ITC 㹡ôǹŴྨ OpenURL Ѻ Execute. ʹ OpenURL ʹҹʹ֧ ѹբͨӡѴ öѺŷǡѺʶҹСôǹŴ ʹ 㹡ѺŨҡྨʹ OpenURL ҨٻẺͧ鴴ѧ:

strPageContent = Inet1.OpenURL(strURL, icString)

سѹ·Ѻྨ ¡ʹ OpenURL ITC 觢÷ǡѺӹǹͧŷ ҡöФǺŷ ҧ Ҥ繷еͧҶ֧ŷ Winsock buffer ǹ红ŷ١ Ҷ֧Ź ҡöФӹdzҴͧŷѧ

'ʹ Execute 觡ͧ HTTP ѧ
Inet1.Execute strURL, "GET"

㹡ѺŷҨ繷ʹ GetChunk 㹡ѺŨҡѿѧ

strBuffer = Inet1.GetChunk(512)
strArrivedData = strArrivedData & strBuffer

繵͹ʹ GetChunk Ѻ繵ǡ˹Ҵͧū觨ҡѿ 觷ö˹Ҵͧ ѧҨ֧öǺҳŷ 仡ҹ öзҧӡôŴ ¤Ѵ͡鴵仹 ǹͧǹ StateChanged 

Private Sub Inet1_StateChanged(ByVal State As Integer)
    '
    Select Case State
        '
        Case icResponseCompleted
            '
            Do
                DoEvents
                '
                strBuffer = Inet1.GetChunk(512)
                strArrivedData = strArrivedData & strBuffer
                lngArrivedDataSize = Len(strArrivedData)
                '
            Loop Until Len(strBuffer) = 0
        '
    End Select
    '
End Sub

ФѺ , ͹öʴӹǹͧŷ зѧ䧷ФԴ͡繵 ͷѺ͹ŷ ProgressBar Ҩ繷еͧ颹ҴͧҨѺ͹Ũ ԧǨҡ͡˹ͧ HTTP ˹ Content-Length header 仾Ѻ HTTP response ¿ŴѧǨк觺֧͡Ҵ 㹡÷ҨѺŴѧǴ ITC Ҩеͧ¡ʹ GetHeader ë StateChanged

Private m_lngDocSize As Long

Private Sub Inet1_StateChanged(ByVal State As Integer)
    '
    Select Case State
        '
        Case icResponseReceived
            '
             If m_lDocSize = 0 Then
                 If Len(Inet1.GetHeader("Content-Length")) > 0 Then
                      m_lDocSize = CLng(Inet1.GetHeader("Content-Length"))
                 End If
             End If

            '
    End Select
    '
End Sub

⪤ պҧѡɳз 觿Ŵ Content-Length header ,ҨöҢҴʴʶҹС÷ӧҹ

ФѺ Ҩҧҧʴ÷ӧҹ繡ѹ¹ФѺ

ҧ硵

鹨ҡԴ Visual Basic ҧ硵 Standard EXE ˹硵 DownloadProgress Ctrl+T ¡͡Components Ƿӡ͡硺͡仹:

  • Microsoft Internet Transfer Control
  • Microsoft Rich Textbox Control
  • Microsoft Windows Common Controls

ӡúѹ֡硵

ҧ GUI

ҧ͹ŵ仹ŧͧ硵:

  • TextBox
  • CommandButton
  • Two Frame controls
  • Label
  • ProgressBar
  • RichTextBox
  • Internet Transfer Control

Ѵ˹觢ͧ͹ ٻҹҧ:

鴢ͧ

Դ˹ҵҧ ǷӡûСȵŧǹͧGeneral-Declarations :

Private m_lngDocSize As Long

ù㹡红ҴͧŷҨдŴ

鹵͹令 鴷зӧҹաäԡ ¨鴹ŧǹͧ⾫ Command1_Click:

Private Sub Command1_Click()
    '
    'reset file size value
    m_lngDocSize = 0
    'clear rtbDocument
    rtbDocument.Text = ""
    '
    'reset the ProgressBar control
    ProgressBar1.Value = 0.001
    '
    'clear the label control
    lblProgressInfo.Caption = ""
    '
    'define protocol for the ITC
    Inet1.Protocol = icHTTP
    '
    'call the Execute method to send
    'HTTP request to the webserver
    If Len(txtURL.Text) > 0 Then
        Inet1.Execute Trim$(txtURL.Text), "GET"
    End If
    '
End Sub

鴢ҧ ǹͧá˹Ѻ͹ 觤ͧ (request) ѧ ͧ ͺʹͧ (respond) ҡ¹ŧǹͧǹ StateChanged ͧ Internet Transfer Control ͷѺҢ Content-Length header Тŷ

Private Sub Inet1_StateChanged(ByVal State As Integer)
'
Dim strText As String
Dim strBuffer As String
Dim sngProgerssValue As Single
'
On Error Resume Next
'
 Select Case State
 '
 Case icResponseCompleted
  'retrieve data from the buffer       
  Do	   
   DoEvents
   '
   strBuffer = Inet1.GetChunk(512)        
   strText = strText & strBuffer        
   '		
   If m_lngDocSize > 0 Then
      If Len(strBuffer) > 0 Then
       'get percent value
       sngProgerssValue = Int((Len(strText) / m_lngDocSize) * 100)
      End If
      'update the label control with new caption
      lblProgressInfo.Caption = "Downloaded " & CStr(Len(strText)) & _
                                                                                " bytes (" & CStr(sngProgerssValue) & "%)"
      'update the PregressBar control with new value
      ProgressBar1.Value = sngProgerssValue
   End If
   '
  Loop Until Len(strBuffer) = 0
  '
  'put retrieved HTML source into the RichTextBox control
  rtbDocument.Text = strText
  '
 Case icResponseReceived
 '
 If m_lngDocSize = 0 Then
  '
  'retrieve size of the document
  If Len(Inet1.GetHeader("Content-Length")) > 0 Then
                                                 m_lngDocSize = CLng(Inet1.GetHeader("Content-Length"))
  End If
  '
 End If
  '
 End Select
 '
End Sub

F5 ͷͺ ͹ URL ͧŧ textbox Ƿӡäԡ Ǵ٤¹ŧԴ ա觿Ŵ Content-Length header ҡʶҹСôǹŴྨ տŴ öʴʶҹ.

: Ŵҧ (Ŵ 4,276 )
 

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

ͺ
´

 
 
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Ǣͧ

ѹ֡Ҿҡ WebCam

¹ visual basic 6 ʴҾҡ ͧ WebCam ͧس

Ping Ţ IP

View Source ͧ纴 Inet (Microsoft Internet Tranfer Control)

Ҷ֧͡ HTML ҹҧ WebBrowser Control

Broadcast VB

Client/Server UDP ҹҧ MS Winsock

Daytime (ҧ Winsock Control)

ҹ Winsock Control
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th