Je d=E9veloppe une petite application qui me permettra par
'lintermediare des sockets et d'une connexion ethenet, d'envoyer un
fichier quel qui soit vers un PC distant pour cela j'utilise le code
suivant :
Dim essai (20) As Byte
Dim nbr_total_cara As Long
nbr_total_cara =3D 1
Open "C:\Essai.txt" For Binary As #1 'Ouverture du fichier en binaire
taille =3D LOF(1)
While (nbr_total_cara < taille)
Get #1, nbr_total_cara, buffer
Winsock1.SendData buffer
nbr_total_cara =3D nbr_total_cara + Len(buffer)
Wend
Close #1
Mais j'ai un probleme au niveau de la ligne suivante :
Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an
automation types is not ..."
En fait le but de cette ligne est de faire un d=E9calage de la lecture
afin de lire 20 octets par 20 octets tous le fichier.
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
Fred
Dans : news:, disait :
Bonjour,
Je développe une petite application qui me permettra par 'lintermediare des sockets et d'une connexion ethenet, d'envoyer un fichier quel qui soit vers un PC distant pour cela j'utilise le code suivant :
Dim essai (20) As Byte Dim nbr_total_cara As Long nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire taille = LOF(1) While (nbr_total_cara < taille) Get #1, nbr_total_cara, buffer Winsock1.SendData buffer nbr_total_cara = nbr_total_cara + Len(buffer) Wend Close #1
Mais j'ai un probleme au niveau de la ligne suivante : Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture afin de lire 20 octets par 20 octets tous le fichier.
C'est buffer ou essai le nom de la variable ? D'autre part, tu lis par blocs de 21 et non 20. Et enfin, il faut traiter particulièrement le dernier bloc qui n'aura pas nécessairement une taille de 20 (21).
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Dans : news:1150360986.580633.278940@h76g2000cwa.googlegroups.com,
john.ambou@free.fr disait :
Bonjour,
Je développe une petite application qui me permettra par
'lintermediare des sockets et d'une connexion ethenet, d'envoyer un
fichier quel qui soit vers un PC distant pour cela j'utilise le code
suivant :
Dim essai (20) As Byte
Dim nbr_total_cara As Long
nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire
taille = LOF(1)
While (nbr_total_cara < taille)
Get #1, nbr_total_cara, buffer
Winsock1.SendData buffer
nbr_total_cara = nbr_total_cara + Len(buffer)
Wend
Close #1
Mais j'ai un probleme au niveau de la ligne suivante :
Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an
automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture
afin de lire 20 octets par 20 octets tous le fichier.
C'est buffer ou essai le nom de la variable ?
D'autre part, tu lis par blocs de 21 et non 20.
Et enfin, il faut traiter particulièrement le dernier bloc qui n'aura
pas nécessairement une taille de 20 (21).
Je développe une petite application qui me permettra par 'lintermediare des sockets et d'une connexion ethenet, d'envoyer un fichier quel qui soit vers un PC distant pour cela j'utilise le code suivant :
Dim essai (20) As Byte Dim nbr_total_cara As Long nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire taille = LOF(1) While (nbr_total_cara < taille) Get #1, nbr_total_cara, buffer Winsock1.SendData buffer nbr_total_cara = nbr_total_cara + Len(buffer) Wend Close #1
Mais j'ai un probleme au niveau de la ligne suivante : Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture afin de lire 20 octets par 20 octets tous le fichier.
C'est buffer ou essai le nom de la variable ? D'autre part, tu lis par blocs de 21 et non 20. Et enfin, il faut traiter particulièrement le dernier bloc qui n'aura pas nécessairement une taille de 20 (21).
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
X
Bonjour,
"buffer" est utilisé en variable, est-ce que ce n'est pas un mot réservé ? Pourquoi n'est-elle pas déclarée ? As-tu mis "option explicit" ? Le fichier est-il réservé "FreeFile" ? ...
-- Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm Principe d'utilisation des news Groups http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ------------------------------------------------------------------------------------ a écrit dans le message de news:
Bonjour,
Je développe une petite application qui me permettra par 'lintermediare des sockets et d'une connexion ethenet, d'envoyer un fichier quel qui soit vers un PC distant pour cela j'utilise le code suivant :
Dim essai (20) As Byte Dim nbr_total_cara As Long nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire taille = LOF(1) While (nbr_total_cara < taille) Get #1, nbr_total_cara, buffer Winsock1.SendData buffer nbr_total_cara = nbr_total_cara + Len(buffer) Wend Close #1
Mais j'ai un probleme au niveau de la ligne suivante : Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture afin de lire 20 octets par 20 octets tous le fichier.
Pourriez vous m'aidez ?
Merci Johnson
Bonjour,
"buffer" est utilisé en variable, est-ce que ce n'est pas un mot réservé ?
Pourquoi n'est-elle pas déclarée ?
As-tu mis "option explicit" ?
Le fichier est-il réservé "FreeFile" ?
...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
<john.ambou@free.fr> a écrit dans le message de news:
1150360986.580633.278940@h76g2000cwa.googlegroups.com...
Bonjour,
Je développe une petite application qui me permettra par
'lintermediare des sockets et d'une connexion ethenet, d'envoyer un
fichier quel qui soit vers un PC distant pour cela j'utilise le code
suivant :
Dim essai (20) As Byte
Dim nbr_total_cara As Long
nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire
taille = LOF(1)
While (nbr_total_cara < taille)
Get #1, nbr_total_cara, buffer
Winsock1.SendData buffer
nbr_total_cara = nbr_total_cara + Len(buffer)
Wend
Close #1
Mais j'ai un probleme au niveau de la ligne suivante :
Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an
automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture
afin de lire 20 octets par 20 octets tous le fichier.
"buffer" est utilisé en variable, est-ce que ce n'est pas un mot réservé ? Pourquoi n'est-elle pas déclarée ? As-tu mis "option explicit" ? Le fichier est-il réservé "FreeFile" ? ...
-- Merci beaucoup, au revoir et à bientôt :o) ------ Site logiciels http://irolog.free.fr Mail http://irolog.free.fr/ecrire/index.htm Site perso http://irolog.free.fr/joe/index.htm Principe d'utilisation des news Groups http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ------------------------------------------------------------------------------------ a écrit dans le message de news:
Bonjour,
Je développe une petite application qui me permettra par 'lintermediare des sockets et d'une connexion ethenet, d'envoyer un fichier quel qui soit vers un PC distant pour cela j'utilise le code suivant :
Dim essai (20) As Byte Dim nbr_total_cara As Long nbr_total_cara = 1
Open "C:Essai.txt" For Binary As #1 'Ouverture du fichier en binaire taille = LOF(1) While (nbr_total_cara < taille) Get #1, nbr_total_cara, buffer Winsock1.SendData buffer nbr_total_cara = nbr_total_cara + Len(buffer) Wend Close #1
Mais j'ai un probleme au niveau de la ligne suivante : Get #1, nbr_total_cara, buffer : "J'ai l'erreur 458 varaibles uses an automation types is not ..."
En fait le but de cette ligne est de faire un décalage de la lecture afin de lire 20 octets par 20 octets tous le fichier.
Pourriez vous m'aidez ?
Merci Johnson
john.ambou
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les news mais merci beacoup de votre aide
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les
news mais merci beacoup de votre aide
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les news mais merci beacoup de votre aide
Gloops
Salut,
Si tu avais dit la réponse on en aurait appris plus ;) _________________________________________________ Le 15/06/2006 18:03, a écrit :
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les news mais merci beacoup de votre aide
Salut,
Si tu avais dit la réponse on en aurait appris plus ;)
_________________________________________________
Le 15/06/2006 18:03, john.ambou@free.fr a écrit :
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les
news mais merci beacoup de votre aide
Si tu avais dit la réponse on en aurait appris plus ;) _________________________________________________ Le 15/06/2006 18:03, a écrit :
Merci j'avias trouvé mon erreur et j'ai oublié de le dire sur les news mais merci beacoup de votre aide
john.ambou
lol pour te repondre en fait il s'agit tous simplement du fait que je n'ai pas déclaré la variable buffer c'est tout bete mais ca ne fonctionne pas lol
lol pour te repondre en fait il s'agit tous simplement du fait que je
n'ai pas déclaré la variable buffer c'est tout bete mais ca ne
fonctionne pas lol
lol pour te repondre en fait il s'agit tous simplement du fait que je n'ai pas déclaré la variable buffer c'est tout bete mais ca ne fonctionne pas lol
