COPIANDO ARQUIVO SERVIDOR UOL COM INET

SOUZA 04/02/2014 15:09:50
#434226
Ola , pessoal estou tentando fazer o download de um arquivo do meu servidor uol usando o inet.

Dim TransferSuccess As Boolean

status$ = [Ô]Checking for updated version.[Ô]
TransferSuccess = GetInternetFile(Inet1, [Ô]http://provedor/dados/Versao.txt[Ô], [Ô]c:    emp[Ô])
ele chega a baixar o arquivo mas corrompido tipo preciso deste arquivo txt que tem a versao do sistema 1.1 dentro dele. mas quando ele baixa no pc vem todos como linguagem maquina tipo erro o que pode ser?
MARCELO.TREZE 04/02/2014 16:51:34
#434238
tenta ai

Public Function Download(ArqURL As String, Arqtemp As String) As Boolean

 Dim arquivo() As Byte

 Open Arqtemp For Binary Access Write As #1

 arquivo() = Inet1.OpenURL(ArqURL, icByteArray)
 Put #1, , arquivo()

 Close #1

MsgBox [Ô]O arquivo  foi recebido com sucesso ! [Ô], vbInformation
Download = True
 
 
 Exit Function

Trata_erro:
MsgBox [Ô]Ocorreu um erro durante a transferência ! [Ô], vbCritical
Download = False

End Function



em um botão

Download [Ô]http://provedor/dados/Versao.txt[Ô], [Ô]c:    emp\versao.txt[Ô]


ve se funciona, eu não tenho certeza mas acho que funciona sim
SOUZA 04/02/2014 17:06:02
#434242
baixou mas ao abrir ele mosta assim

<!DOCTYPE html PUBLIC [Ô]-//W3C//DTD XHTML 1.0 Strict//EN[Ô] [Ô]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[Ô]>
<html xmlns=[Ô]http://www.w3.org/1999/xhtml[Ô]>
<head>
<title>IIS 7.0 Detailed Error - 404.0 - Not Found</title>
<style type=[Ô]text/css[Ô]>
<!--
body{margin:0;font-size:.7em;font-family:Verdana,Arial,Helvetica,sans-serif;background:#CBE1EF;}
code{margin:0;color:#006600;font-size:1.1em;font-weight:bold;}
.config_source code{font-size:.8em;color:#000000;}
pre{margin:0;font-size:1.4em;word-wrap:break-word;}
ul,ol{margin:10px 0 10px 40px;}
ul.first,ol.first{margin-top:5px;}
fieldset{padding:0 15px 10px 15px;}
.summary-container fieldset{padding-bottom:5px;margin-top:4px;}
legend.no-expand-all{padding:2px 15px 4px 10px;margin:0 0 0 -12px;}
legend{color:#333333;padding:4px 15px 4px 10px;margin:4px 0 8px -12px;_margin-top:0px;
border-top:1px solid #EDEDED;border-left:1px solid #EDEDED;border-right:1px solid #969696;
border-bottom:1px solid #969696;background:#E7ECF0;font-weight:bold;font-size:1em;}
a:link,a:visited{color:#007EFF;font-weight:bold;}
a:hover{text-decoration:none;}
h1{font-size:2.4em;margin:0;color:#FFF;}
h2{font-size:1.7em;margin:0;color:#CC0000;}
h3{font-size:1.4em;margin:10px 0 0 0;color:#CC0000;}
h4{font-size:1.2em;margin:10px 0 5px 0;
}#header{width:96%;margin:0 0 0 0;padding:6px 2% 6px 2%;font-family:[Ô]trebuchet MS[Ô],Verdana,sans-serif;
color:#FFF;background-color:#5C87B2;
}#content{margin:0 0 0 2%;position:relative;}
.summary-container,.content-container{background:#FFF;width:96%;margin-top:8px;padding:10px;position:relative;}
.config_source{background:#fff5c4;}
.content-container p{margin:0 0 10px 0;
}#details-left{width:35%;float:left;margin-right:2%;
}#details-right{width:63%;float:left;
}#server_version{width:96%;_height:1px;min-height:1px;margin:0 0 5px 0;padding:11px 2% 8px 2%;color:#FFFFFF;
background-color:#5A7FA5;border-bottom:1px solid #C1CFDD;border-top:1px solid #4A6C8E;font-weight:normal;
font-size:1em;color:#FFF;text-align:right;
}#server_version p{margin:5px 0;}
table{margin:4px 0 4px 0;width:100%;border:none;}
td,th{vertical-align:top;padding:3px 0;text-align:left;font-weight:bold;border:none;}
th{width:30%;text-align:right;padding-right:2%;font-weight:normal;}
thead th{background-color:#ebebeb;width:25%;
}#details-right th{width:20%;}
table tr.alt td,table tr.alt th{background-color:#ebebeb;}
.highlight-code{color:#CC0000;font-weight:bold;font-style:italic;}
.clear{clear:both;}
.preferred{padding:0 5px 2px 5px;font-weight:normal;background:#006633;color:#FFF;font-size:.8em;}
-->
</style>

</head>
<body>
<div id=[Ô]header[Ô]><h1>Server Error in Application [Ô]TRIBUNAFAT[Ô]</h1></div>
<div id=[Ô]server_version[Ô]><p>Internet Information Services 7.0</p></div>
<div id=[Ô]content[Ô]>
<div class=[Ô]content-container[Ô]>
<fieldset><legend>Error Summary</legend>
<h2>HTTP Error 404.0 - Not Found</h2>
<h3>The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.</h3>
</fieldset>
</div>
<div class=[Ô]content-container[Ô]>
<fieldset><legend>Detailed Error Information</legend>
<div id=[Ô]details-left[Ô]>
<table border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tr class=[Ô]alt[Ô]><th>Module</th><td>IIS Web Core</td></tr>
<tr><th>Notification</th><td>MapRequestHandler</td></tr>
<tr class=[Ô]alt[Ô]><th>Handler</th><td>StaticFile</td></tr>
<tr><th>Error Code</th><td>0x80070002</td></tr>

</table>
</div>
<div id=[Ô]details-right[Ô]>
<table border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tr class=[Ô]alt[Ô]><th>Requested URL</th><td>http://www.tribunafatimense.com.br:80/dados/Versao.txt</td></tr>
<tr><th>Physical Path</th><td>e:\home    ribunafat\Web\dados\Versao.txt</td></tr>
<tr class=[Ô]alt[Ô]><th>Logon Method</th><td>Anonymous</td></tr>
<tr><th>Logon User</th><td>Anonymous</td></tr>

</table>
<div class=[Ô]clear[Ô]></div>
</div>
</fieldset>
</div>
<div class=[Ô]content-container[Ô]>
<fieldset><legend>Most likely causes:</legend>
<ul> <li>The directory or file specified does not exist on the Web server.</li> <li>The URL contains a typographical error.</li> <li>A custom filter or module, such as URLScan, restricts access to the file.</li> </ul>
</fieldset>
</div>
<div class=[Ô]content-container[Ô]>
<fieldset><legend>Things you can try:</legend>
<ul> <li>Create the content on the Web server.</li> <li>Review the browser URL.</li> <li>Create a tracing rule to track failed requests for this HTTP status code and see which module is calling SetStatus. For more information about creating a tracing rule for failed requests, click <a href=[Ô]http://go.microsoft.com/fwlink/?LinkID=66439[Ô]>here</a>. </li> </ul>
</fieldset>
</div>


<div class=[Ô]content-container[Ô]>
<fieldset><legend>Links and More Information</legend>
This error means that the file or directory does not exist on the server. Create the file or directory and try the request again.
<p><a href=[Ô]http://go.microsoft.com/fwlink/?LinkID=62293&IIS70Error=404,0,0x80070002,6002[Ô]>View more information »</a></p>

</fieldset>
</div>
</div>
</body>
</html>


e tinha que vir apenas 1.2
SOUZA 04/02/2014 17:10:35
#434243
é uma coisa de loco ele baixa o arquivo blz mas corrompido ou sei la o q ta acontecendo!
MARCELO.TREZE 04/02/2014 17:18:27
#434245
souza não é problema, o arquivo que vc está baixando apesar de estar nomeado como txt. ele é uma arquivo xml.

se você salvar este arquivo como html, verá o que ele aparece na realidade, tenha certeza do arquivo que vc está baixando

veja um arquivo em outro site

Private Sub Command1_Click()
Download [Ô]www.gnu.org/licenses/gpl.txt[Ô], [Ô]c:\versao.txt[Ô]
End Sub


você verá que este sim é um arquivo texto
SOUZA 04/02/2014 17:34:57
#434249
Entao o q pode estar acontecendo? pois eu criei o arquivo no bloco de notas do windows e apenas copiei para o servidor? so que quando abro no servidor esta ok, mas quando ele baixa o arquivo vem daquele jeito!
KERPLUNK 04/02/2014 17:56:35
#434254
IIS 7.0 Detailed Error - 404.0 - Not Found

Essa é a mensagem. O arquivo que você está procurando: http://www.tribunafatimense.com.br/dados/Versao.txt não existe.
SOUZA 04/02/2014 18:04:57
#434256
KERPLUNK, nao entendi pois o arquivo esta la! tanto é que se eu copiar ele por ftp para meu pc funciona perfeito.

mas se eu usar a funçao do marcelo ele baixa so que nao abre o arquivo certo.
KERPLUNK 04/02/2014 18:20:39
#434257
FTP e HTTP são protocolos diferentes, portanto podem estar apontando para pastas diferentes. Certifique-se que o caminho físico e:\home    ribunafat\Web\dados\Versao.txt é o mesmo caminho para o qual o FTP está apontando.
MARCELO.TREZE 04/02/2014 18:33:01
#434258
por ftp funciona então teste


Private Sub Form Load()
inet1.URL = [Ô]FTP://ftp.site.com[Ô]
inet1.Password = [Ô]senha[Ô]
inet1.UserName = [Ô]seunome[Ô]
text1.text = inet1.OpenURL
End Sub

em um botao

Inet1.Execute [Ô]FTP://ftp.site.com[Ô], [Ô]GET nomedoarquivo.txt c:    emp
omedoarquivo.txt[Ô]
SOUZA 04/02/2014 18:53:52
#434260
não funciona to no bico sistema pronto e esta porcaria nao da certo!

no ultimo como ftp nao consegue acessar o servidor erro 35754
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar