Hello à tous,
je fais des essais de serveur web. J'ai un probleme pour envoyer une image,
en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche,
j'envoie ceci:
sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _
"Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img
- img est le fichier jpg lu par un simple
Open "c:\files\truc.jpg" For Binary As #f
size = LOF(f)
img = String$(size, vbNullChar)
Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à l'emplacement de
l'image). Quelqu'un aurait il déjà fait ce genre de choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout roule.
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut, Essaye ceci :
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous, je fais des essais de serveur web. J'ai un probleme pour envoyer une image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche, j'envoie ceci: sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ "Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img - img est le fichier jpg lu par un simple Open "c:filestruc.jpg" For Binary As #f size = LOF(f) img = String$(size, vbNullChar) Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout roule.
Salut,
Essaye ceci :
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous,
je fais des essais de serveur web. J'ai un probleme pour envoyer une
image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche,
j'envoie ceci:
sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _
"Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img
- img est le fichier jpg lu par un simple
Open "c:filestruc.jpg" For Binary As #f
size = LOF(f)
img = String$(size, vbNullChar)
Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à
l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de
choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout
roule.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous, je fais des essais de serveur web. J'ai un probleme pour envoyer une image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche, j'envoie ceci: sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ "Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img - img est le fichier jpg lu par un simple Open "c:filestruc.jpg" For Binary As #f size = LOF(f) img = String$(size, vbNullChar) Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout roule.
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications exemples (livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous, je fais des essais de serveur web. J'ai un probleme pour envoyer une image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche, j'envoie ceci: sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ "Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img - img est le fichier jpg lu par un simple Open "c:filestruc.jpg" For Binary As #f size = LOF(f) img = String$(size, vbNullChar) Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout roule.
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en
plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les
sources (il n'est pas finis mais c'est déjà ca) + des applications exemples
(livre d'or...)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous,
je fais des essais de serveur web. J'ai un probleme pour envoyer une
image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche,
j'envoie ceci:
sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _
"Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img
- img est le fichier jpg lu par un simple
Open "c:filestruc.jpg" For Binary As #f
size = LOF(f)
img = String$(size, vbNullChar)
Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à
l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de
choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout
roule.
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications exemples (livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
Hello à tous, je fais des essais de serveur web. J'ai un probleme pour envoyer une image, en réponse à un GET truc.jpg
D'après la RFC et diverses infos glanées à droite et à gauche, j'envoie ceci: sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ "Content-length: " & size & Chr$(13) & Chr$(10) & img
- size est la taille calculée de img - img est le fichier jpg lu par un simple Open "c:filestruc.jpg" For Binary As #f size = LOF(f) img = String$(size, vbNullChar) Get #f, , img
Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de choses?
Note: pour le reste (envoi de pages html (sans img), etc.), tout roule.
Jean-Marc
Hello, merci de ta réponse. malheureusement, ça ne marche toujours pas, avec exactement ceci (je copy paste mon code):
f = FreeFile sdata = "" Open "c:filestruc.jpg" For Binary As #f size = LOF(f) img = String$(size, vbNullChar) Get #f, , img Close #f
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote: > Hello à tous, > je fais des essais de serveur web. J'ai un probleme pour envoyer une > image, en réponse à un GET truc.jpg > > D'après la RFC et diverses infos glanées à droite et à gauche, > j'envoie ceci: > sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ > "Content-length: " & size & Chr$(13) & Chr$(10) & img > > - size est la taille calculée de img > - img est le fichier jpg lu par un simple > Open "c:filestruc.jpg" For Binary As #f > size = LOF(f) > img = String$(size, vbNullChar) > Get #f, , img > > Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à > l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de > choses? > > Note: pour le reste (envoi de pages html (sans img), etc.), tout > roule.
Hello,
merci de ta réponse.
malheureusement, ça ne marche toujours pas, avec exactement ceci
(je copy paste mon code):
f = FreeFile
sdata = ""
Open "c:filestruc.jpg" For Binary As #f
size = LOF(f)
img = String$(size, vbNullChar)
Get #f, , img
Close #f
' je veux bien voir tes sources, je suis sur que je dois juste louper
un truc tout bête car tout le reste fonctionne :-(
mon email: nospam_jean_marc_n2@yahoo.fr
enlever nospam_
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:Ox8g1hO8EHA.2552@TK2MSFTNGP09.phx.gbl...
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en
plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les
sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
> Hello à tous,
> je fais des essais de serveur web. J'ai un probleme pour envoyer une
> image, en réponse à un GET truc.jpg
>
> D'après la RFC et diverses infos glanées à droite et à gauche,
> j'envoie ceci:
> sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _
> "Content-length: " & size & Chr$(13) & Chr$(10) & img
>
> - size est la taille calculée de img
> - img est le fichier jpg lu par un simple
> Open "c:filestruc.jpg" For Binary As #f
> size = LOF(f)
> img = String$(size, vbNullChar)
> Get #f, , img
>
> Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à
> l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de
> choses?
>
> Note: pour le reste (envoi de pages html (sans img), etc.), tout
> roule.
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote: > Hello à tous, > je fais des essais de serveur web. J'ai un probleme pour envoyer une > image, en réponse à un GET truc.jpg > > D'après la RFC et diverses infos glanées à droite et à gauche, > j'envoie ceci: > sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ > "Content-length: " & size & Chr$(13) & Chr$(10) & img > > - size est la taille calculée de img > - img est le fichier jpg lu par un simple > Open "c:filestruc.jpg" For Binary As #f > size = LOF(f) > img = String$(size, vbNullChar) > Get #f, , img > > Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à > l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de > choses? > > Note: pour le reste (envoi de pages html (sans img), etc.), tout > roule.
Jean-Marc
Arf, j'ai trouvé...
Mon code était correct depuis le début. Le truc: il faut un DoEvents apres le socket.senddata et avant de clore le socket.
Merci pour l'aide proposée.
-- Jean-marc "There are only 10 kind of people those who understand binary and those who don't."
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote: > Hello à tous, > je fais des essais de serveur web. J'ai un probleme pour envoyer une > image, en réponse à un GET truc.jpg > > D'après la RFC et diverses infos glanées à droite et à gauche, > j'envoie ceci: > sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ > "Content-length: " & size & Chr$(13) & Chr$(10) & img > > - size est la taille calculée de img > - img est le fichier jpg lu par un simple > Open "c:filestruc.jpg" For Binary As #f > size = LOF(f) > img = String$(size, vbNullChar) > Get #f, , img > > Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à > l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de > choses? > > Note: pour le reste (envoi de pages html (sans img), etc.), tout > roule.
Arf, j'ai trouvé...
Mon code était correct depuis le début.
Le truc:
il faut un DoEvents apres le socket.senddata et avant de
clore le socket.
Merci pour l'aide proposée.
--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:Ox8g1hO8EHA.2552@TK2MSFTNGP09.phx.gbl...
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en
plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les
sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Jean-Marc wrote:
> Hello à tous,
> je fais des essais de serveur web. J'ai un probleme pour envoyer une
> image, en réponse à un GET truc.jpg
>
> D'après la RFC et diverses infos glanées à droite et à gauche,
> j'envoie ceci:
> sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _
> "Content-length: " & size & Chr$(13) & Chr$(10) & img
>
> - size est la taille calculée de img
> - img est le fichier jpg lu par un simple
> Open "c:filestruc.jpg" For Binary As #f
> size = LOF(f)
> img = String$(size, vbNullChar)
> Get #f, , img
>
> Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à
> l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de
> choses?
>
> Note: pour le reste (envoi de pages html (sans img), etc.), tout
> roule.
Si tu veux j'ai fais il y a qqes temps un serveur multithread sachant en plus gérer le scripting (coté serveur, comme ASP). Je peux t'envoyer les sources (il n'est pas finis mais c'est déjà ca) + des applications
exemples
(livre d'or...)
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Jean-Marc wrote: > Hello à tous, > je fais des essais de serveur web. J'ai un probleme pour envoyer une > image, en réponse à un GET truc.jpg > > D'après la RFC et diverses infos glanées à droite et à gauche, > j'envoie ceci: > sdata = "Content-Type: image/jpeg" & Chr$(13) & Chr$(10) & _ > "Content-length: " & size & Chr$(13) & Chr$(10) & img > > - size est la taille calculée de img > - img est le fichier jpg lu par un simple > Open "c:filestruc.jpg" For Binary As #f > size = LOF(f) > img = String$(size, vbNullChar) > Get #f, , img > > Ca ne fonctionne pas (j'obtiens un carré avec croix rouge à > l'emplacement de l'image). Quelqu'un aurait il déjà fait ce genre de > choses? > > Note: pour le reste (envoi de pages html (sans img), etc.), tout > roule.
