COMO CRIAR PASTA VIRTUAL
Prezados,
Amigos
Estou desenvolvendo, com o uso do componente Winsock do VB6, um servidor WEB, o problema é o sequinte:
Quando o cliente solicita uma página (http://201.10.66.219:81/Teste.htm) o servidor enviar a página sem problema, só que, se a página contiver imagem as mesma não são exibidas, a menos que informe o local do disco onde elas estão por exemplo:
1 - <IMG src="Ok.gif"> - a imagem não é exibida no navegador
2 - <IMG src="file:///c:/PastaServidor/Imagem/Ok.gif" - a imagem é exibida
No processo normal sem usar o Servidor Winsock o método 1 acima, funciona normalmente.
Analizei a situação e cheguei a conclusão, que tinha que criar uma Pasta Virtual.
Se alguem tiver a solução, ficarei agradecido!
Amigos
Estou desenvolvendo, com o uso do componente Winsock do VB6, um servidor WEB, o problema é o sequinte:
Quando o cliente solicita uma página (http://201.10.66.219:81/Teste.htm) o servidor enviar a página sem problema, só que, se a página contiver imagem as mesma não são exibidas, a menos que informe o local do disco onde elas estão por exemplo:
1 - <IMG src="Ok.gif"> - a imagem não é exibida no navegador
2 - <IMG src="file:///c:/PastaServidor/Imagem/Ok.gif" - a imagem é exibida
No processo normal sem usar o Servidor Winsock o método 1 acima, funciona normalmente.
Analizei a situação e cheguei a conclusão, que tinha que criar uma Pasta Virtual.
Se alguem tiver a solução, ficarei agradecido!
Qual o sistema operacional,
Você usa o IIS?
Se sim no próprio internet information services tem como você criar a pasta virtual..
Você usa o IIS?
Se sim no próprio internet information services tem como você criar a pasta virtual..
Caro,
GERMANIR
O servidor que estou referindo é independente do IIS, estou criando o meu proprio, que funciona da seguinte forma:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim I As String
Dim S As String
Dim ITxt As Integer
Dim FTxt As Integer
Dim Pag As String
Winsock1.GetData I
ITxt = InStr(I, "GET") + Len("GET") + 1
FTxt = InStr(I, "HTTP")
Pag = Mid(I, ITxt, FTxt - ITxt)
Pag = Trim(Mid(Pag, 2))
If Pag="" Then Pag="Padrão"
Select Case LCase(Pag)
Case "padrão"
Text4.Text = "<HTML><BODY>ServFADSystem 2005</HTML></BODY>"
Case "teste"
Command4_Click
Command1_Click
Case Else
Text4.Text = "<HTML><BODY>Página não encontrada, no ServFADSystem 2005!!!</BODY></HTML>"
End Select
S = Text4.Text
Winsock1.SendData S 'Enviar Conteúdo de Text4 (Conteúdo HTML)
End Sub
Onde as páginas são geradas do próprio Servidor.
Ficou mais claro!!!
Obrigado mesmo assim, valeu!!!
[S62]
GERMANIR
O servidor que estou referindo é independente do IIS, estou criando o meu proprio, que funciona da seguinte forma:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim I As String
Dim S As String
Dim ITxt As Integer
Dim FTxt As Integer
Dim Pag As String
Winsock1.GetData I
ITxt = InStr(I, "GET") + Len("GET") + 1
FTxt = InStr(I, "HTTP")
Pag = Mid(I, ITxt, FTxt - ITxt)
Pag = Trim(Mid(Pag, 2))
If Pag="" Then Pag="Padrão"
Select Case LCase(Pag)
Case "padrão"
Text4.Text = "<HTML><BODY>ServFADSystem 2005</HTML></BODY>"
Case "teste"
Command4_Click
Command1_Click
Case Else
Text4.Text = "<HTML><BODY>Página não encontrada, no ServFADSystem 2005!!!</BODY></HTML>"
End Select
S = Text4.Text
Winsock1.SendData S 'Enviar Conteúdo de Text4 (Conteúdo HTML)
End Sub
Onde as páginas são geradas do próprio Servidor.
Ficou mais claro!!!
Obrigado mesmo assim, valeu!!!
[S62]
Você não precisa criar uma pasta virtual, mesmo porque você precisa mandar o arquivo imagem para o usuário junto com a pagina texto...
Tem um exemplo de webserver aqui no VBMania que envia imagem pelo winsock...
Tem um exemplo de webserver aqui no VBMania que envia imagem pelo winsock...
Caro,
RAFAEL_FP
Não identifiquei o exemplo que envia imagem pelo winsock, porém, definir a "Pasta Base" no cabeçalho da página a ser enviada da seguinte forma:
<HEAD>
<BASE HREF="C:\PastaHTML\">
</HEAD>
quando informo o caminho da imagem a mesma é exibida normalmente:
<IMG SRC="Imagem/Ok.gif">
A pergunta é o seguinte:
Alguém sabe como definir a PASTA, sem que seja, exposta ao cliente?
Como por exemplo usando:
Cabecalho = "HTTP/1.1 200 OK" & vbCrLf _
& "Date: Mon, 13 Aug 2001 15:42:54 GMT" & vbCrLf _
& "Server: ServFAD2005" & vbCrLf _
& "Last-Modified: Thu, 22 Mar 2001 20:55:40 GMT" & vbCrLf _
& "ETag: ""13819d-62-3aba66cb""" & vbCrLf _
& "Accept-Ranges: bytes" & vbCrLf _
& "Content-Length: 26566" & vbCrLf _
& "Connection: close" & vbCrLf _
& "Content-Type: text/html" & vbCrLf _
& vbCrLf
RAFAEL_FP
Não identifiquei o exemplo que envia imagem pelo winsock, porém, definir a "Pasta Base" no cabeçalho da página a ser enviada da seguinte forma:
<HEAD>
<BASE HREF="C:\PastaHTML\">
</HEAD>
quando informo o caminho da imagem a mesma é exibida normalmente:
<IMG SRC="Imagem/Ok.gif">
A pergunta é o seguinte:
Alguém sabe como definir a PASTA, sem que seja, exposta ao cliente?
Como por exemplo usando:
Cabecalho = "HTTP/1.1 200 OK" & vbCrLf _
& "Date: Mon, 13 Aug 2001 15:42:54 GMT" & vbCrLf _
& "Server: ServFAD2005" & vbCrLf _
& "Last-Modified: Thu, 22 Mar 2001 20:55:40 GMT" & vbCrLf _
& "ETag: ""13819d-62-3aba66cb""" & vbCrLf _
& "Accept-Ranges: bytes" & vbCrLf _
& "Content-Length: 26566" & vbCrLf _
& "Connection: close" & vbCrLf _
& "Content-Type: text/html" & vbCrLf _
& vbCrLf
RAFAEL_FP
Obrigado pela orientação, já compreendi como enviar a imagem junto com a página.
Valeu!!!
Obrigado pela orientação, já compreendi como enviar a imagem junto com a página.
Valeu!!!
Tópico encerrado , respostas não são mais permitidas