Új hozzászólás Aktív témák

• #1523 Des1gnR őstag martonx #1522

  Új Válasz 2011-11-23 20:52:10 #1523

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  válasz martonx #1522 üzenetére

  Lényeg, hogy működik.
  Köszönöm a segítséget, sokat jelentett

  Lenne még egy kérdésem.
  A program rendesen működik, ha olyan tartalmat töltök le amihez nem kell bejelentkezni az oldalra. Ha olyan mappát nyitok meg amihez be kell jelentkezni, akkor ugye azt csak a bejelentkezés után tehetem meg. Ezzel nincs is semmi gond, teljesen ugyan olyan felületű oldalra visz, még a gombok inputjai sem változnak, viszont időtúllépéssel dob egy hibát.
  Ha csak a webbrowser ablakba töltöm le akkor simán letölti, de ha ráengedném a "ciklust" akkor dobja a hibát. Valami ötlet erre?

• #1522 martonx veterán Des1gnR #1521

  Új Válasz 2011-11-23 08:08:42 #1522

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz Des1gnR #1521 üzenetére

  A viselkedéséből, vagy a debug is ezt mutatja?
  No mindegy, a lényeg hogy működik.

• #1521 Des1gnR őstag martonx #1520

  Új Válasz 2011-11-22 23:26:11 #1521

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  válasz martonx #1520 üzenetére

  Fura de nekem ez jön le a program viselkedéséből.
  Most ilyen:
  WebBrowser1.Document.GetElementById("next").InvokeMember("click")
  Delay(5)
  My.Computer.Network.DownloadFile(sourceURL, filedir)

  Így láthatólag probléma nélkül fut

• #1520 martonx veterán Des1gnR #1519

  Új Válasz 2011-11-22 23:12:36 #1520

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz Des1gnR #1519 üzenetére

  hááát az eléggé lehetetlen, de te tudod.

• #1519 Des1gnR őstag martonx #1518

  Új Válasz 2011-11-22 22:53:29 #1519

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  válasz martonx #1518 üzenetére

  Köszönöm a segítséget, ez nagyon korrekt válasz volt.
  Ezt a verziót választottam:
  Dim mettől As Integer = TextBox4.Text
  Dim meddig As Integer = TextBox2.Text
  Dim i As Integer
  Dim a As String
  For i = mettől To meddig
  a = i
  
  Dim link As String = WebBrowser1.Document.GetElementById("save").GetAttribute("href")
  TextBox1.Text = ("https://familysearch.org" + link)
  
  Dim sourceURL = TextBox1.Text
  Dim filedir = ("C:\" + a + ".jpg")
  WebBrowser1.Document.GetElementById("next").InvokeMember("click")
  My.Computer.Network.DownloadFile(sourceURL, filedir)
  
  Next

  De nem várja meg, hogy letöltsön a kép, és már megy is tovább a for ciklus.

• #1518 martonx veterán Des1gnR #1517

  Új Válasz 2011-11-22 21:41:19 #1518

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz Des1gnR #1517 üzenetére

  Webclient-tel kétféleképpen tudsz letölteni. Aszinkron módon, azaz elindul a letöltés, de a kódod fut tovább, nem várja meg, hogy mi lett a letöltés eredménye. Ez a DownloadFileAsync.
  Vagy szinkron módon, azaz elindul a letöltés, a kód megvárja míg letöltődik, és csak ezután fut tovább. Ez a sima DownloadFile.
  Remélem érthető a különbség.
  Emellett a létező legegyszerűbb letöltési lehetőség a My.Computer.Network.DownloadFile használata.
  Sőt letölteni lehet a webhttprequest-tel is. A lehetőségek tárháza szinte végtelen.
  Esetedben javaslom a szinkron letöltést, mert így a legegyszerűbb sorba mindent letölteni, és ha jól értem nem több száz megás cuccokat töltesz le.
  De ha már aszinkron, azért nem működik a DownloadProgressChanged eseményed, mert ehhez a WebClient-edhez előbb hozzá kell kapcsolnod ezt az eseményt. Ezt az AddHandlerrel tudod megtenni.

• #1517 Des1gnR őstag martonx #1516

  Új Válasz 2011-11-22 21:23:03 #1517

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  válasz martonx #1516 üzenetére

  Ezt a szinkron-aszinkron dolgot nem teljesen értem.
  Erről az oldalról töltenék le: https://familysearch.org/pal:/MM9.3.1/TH-1951-20648-29594-35?cc=1452460&wc=12890478

  És itt a teljes forráskód:
  Imports System.Net
  Public Class Form1
  Private WithEvents download As WebClient
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim download As New WebClient
  download = New WebClient
  
  
  Dim i As Integer
  Dim a As String
  'For i = 1 To 3
  a = i
  
  Dim link As String = WebBrowser1.Document.GetElementById("save").GetAttribute("href")
  TextBox1.Text = ("https://familysearch.org" + link)
  
  Dim sourceURL = TextBox1.Text
  Dim filedir = ("C:\" + a + ".jpg")
  ProgressBar1.Value = 0
  ProgressBar1.Maximum = 100
  Try
  download.DownloadFileAsync(New Uri(sourceURL), (filedir))
  Catch ex As Exception
  MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
  End Try
  WebBrowser1.Document.GetElementById("next").InvokeMember("click")
  ' Next
  End Sub
  
  Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
  ProgressBar1.Value = e.ProgressPercentage
  End Sub
  End Class

  Ez még változni fog itt-ott annyiban, hogy lehessen mappát választani és lehessen megadni más url-t is, de most csak az a lényeg hogy működjön

• #1516 martonx veterán Des1gnR #1515

  Új Válasz 2011-11-22 21:14:21 #1516

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  martonx

  veterán

  válasz Des1gnR #1515 üzenetére

  miért aszinkron töltöd le?
  Ha már olyan fontos, hogy sorba menj, töltsd le szinkronban.

  Ehhez a nem működés részhez kéne még némi infó, mondjuk, hogy milyen objektum is az a download.

• #1515 Des1gnR őstag Des1gnR #1514

  Új Válasz 2011-11-22 19:42:37 #1515

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  válasz Des1gnR #1514 üzenetére

  Jah azt még jelezném, hogy ez nem akar működni:
  Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
  ProgressBar1.Value = e.ProgressPercentage
  End Sub
  Ezen kívül más megoldás lehetséges?

• #1514 Des1gnR őstag

  Új Válasz 2011-11-22 18:08:49 #1514

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Des1gnR

  őstag

  Sziasztok!

  Egy olyan programot készítek ami egy weboldalról tölt le egy képet, majd ugrik a következőre és letölti azt is és így tovább
  Így néz ki a kódrész ami a fájlt letölti:
  Try
  download.DownloadFileAsync(New Uri(sourceURL), (filedir))
  Catch ex As Exception
  MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
  End Try

  Azt szeretném megcsinálni, hogy csak akkor ugorjon át a következő képre, ha már letöltötte az aktuálisat. Mivel vizsgáljam ezt?

  Válaszotokat előre is köszönöm.

Új hozzászólás Aktív témák