Discussion :

[the-arno]

Bonjour à tous,

J'ai décidé de tester le logiciel d'email du tutorial winsock de Sébastien Curutchet et lorsque je teste le programme un message d'erreur 424 apparait avec comme message "Un objet est requis". Le problème viendrait apparemment de la ligne Set evt = ws

Quelqu'un aurait un tuyau?

Merci d'avance

Edit : Le lien vers le tuto en question http://drq.developpez.com/vb/tutoriels/Winsock/

[zazaraignée]

Tu as bien ajouté une référence à l'objet Winsock dans ton projet ?

Ce serait bien que tu nous mette la ligne de code qui semble provoquer l'erreur (avec peut-être quelques autres dessus et dessous...).

[Vld44]

n'oublie pas de renommer le winsock en "ws"

[the-arno]

Tout d'abord merci de répondre aussi rapidement =)

Voici quelques lignes de codes du programme avec en rouge la ligne qui seble provoquer une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private WithEvents evt As Winsock
Private nextSend As Boolean

Private Sub btnSend_Click()
    Dim tmp As String

    Set evt = ws
    
    ws.Connect txtServer, 25
    While ws.State <> sckConnected
        DoEvents
    Wend
    nextSend = False
    
    ws.SendData "HELLO toto" & vbCrLf
    While nextSend = False
        DoEvents
    Wend
    nextSend = False

@zazaraignée : Qu'est-ce qu'une référence?

[Cravis]

Je ne suis pas sur mais il me semble à la lecture du tutoriel que ws représente le composant Winsock déposé sur ta Form, il faut donc que le nom de ce composant soit ws pour que ça fonctionne. (Winsock1 par défaut)

[zazaraignée]

Une référence c'est quand tu ajoute une bibliothèque de composants (dll) ou un fichier de composant (ocx) via le menu Projet > Composants, ou encore quand tu ajoute une bibliothèques de fonctions (ou de composants non graphiques) via le menu Projet > Références.

On peut aussi faire référence à des fonctions de l'API de Windows en utilisant la heu... le... heu... comment on dit... j'ai un blanc... disons, faute de mieux, la clause

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public|Private Declare Function NomDeFonction Lib "NomDeLaLibrairie" Alias "AutreNomDeFonction" _
    (ByVal|ByRef NomParamètre As TypeDeDonneeOu_dObjet" [autres paramètres...]) As TypeRetourné