Discussion :

[Crayon]

Tu peux aussi essayer de mettre:

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
AnsiString s ="C:\\image.bmp";
TFileStream *envoi = new TFileStream(s,fmOpenRead);
if(FileExists(s))
{
    try
    {
      ftp->Put(s,"image.bmp",false);//Put(fichier source, nom qu'il aura sur le serveur, OpenReadWrite)
    }
    catch(...)
    {
            ShowMessage("Erreur !"  );
            return;
    }
}
else
{
    ShowMessage("Erreur, le fichier n'existe pas !"  );
    return;
}

[chm0105]

L'image n'est pas accessible. Ensuite, lorsque je recompile, sa indique erreur...

[chm0105]

si je met un point d'arrêt sur cette ligne, sa fonctionne correctement:

Code :

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

ftp->Put(s,"image.bmp",false);//Put(fichier source, nom qu'il aura sur le serveur, OpenReadWrite)

[chm0105]

j'ai besoin de ce code?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::ftpserverStoreFile(TIdFTPServerThread *ASender,
      const AnsiString AFileName, bool AAppend, TStream *&VStream)
{
 
    APath = "C:\\PARTAGE\\";
 
    TFileStream *Tf = new TFileStream(APath + "image.bmp",fmCreate);
    try
    {
 
        VStream = Tf;
    }
}

[Crayon]

L'image n'est pas accessible.

Tu veux dire que le message "Erreur, le fichier n'existe pas !" apparaît?

Si c'est le cas, c'est que ton path n'est pas bon. Essai sans les les double "\"

[chm0105]

voila le message d'erreur. Sans les doubles "\" sa ne fonctionne pas non plus...

[blondelle]

Salut chm0105:
Deux liens sur la capture video le deuxieme donne un exemple d'export par le reseau

http://msdn2.microsoft.com/en-us/library/ms707249.aspx
http://www.mangue.org/wiki/Capture_v...ous_MS-windows

En esperant t'aider

[chm0105]

oui merci pour ses liens! Savez-vous d'ou peut venir mon erreur? Le code fonctionne-t-il chez vous?

Merci pour votre aide!

[Crayon]

ftp c'est quel genre d'objet?

envoi sert à quoi?

Car dans ton code il manque ces infos!

[chm0105]

alors je vais répéter clairement ma question:

j'aimerais envoyer une image vers un ftp

C'est un code de Spike_Spiegel. Le composant ftp est un composant INDY TIdFTP

[blondelle]

oui merci pour ses liens! Savez-vous d'ou peut venir mon erreur? Le code fonctionne-t-il chez vous?

Je ne l'ai pas teste, je pense qu'en comparent ce que tu a ecrit et ce qui est ecrit sur le lien tu devrais trouver

[Crayon]

C'est un code de Spike_Spiegel.

Mais son code est incomplet!!!

Si tu veux utiliser FTP avec Indy 10 (composant IdFTP) tu peux télécharger un démo Delphi sur ce site: http://www.indyproject.org/Sockets/Demos/index.EN.aspx

Si tu veux un démo avec Indy 9 (Delphi): http://www.projectindy.org/DemoDownl...os_26Oct04.zip

[chm0105]

tout sa me semble bien complexe pour moi, en plus en Delphi... Merci pour les liens. Je ferais des tests.

[chm0105]

Avez vous une autre solution pour rendre disponible ma webcam sur le web?

[Crayon]

Avez vous une autre solution pour rendre disponible ma webcam sur le web?

Faire du Streaming en temps réel, mais la je suis complètement perdu.

Regarde bien les exemples en Delphi, c'est pas très difficile à mettre en C++. Voici comment ce connecter au serveur FTP:

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
21
22
23
24
25
26
27
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    CurrentDirEdit.Text := '/';
    DirectoryListBox.Items.Clear;
    SetFunctionButtons(false);
    ConnectButton.Caption := 'Connect';
    ConnectButton.Enabled := true;
    ConnectButton.Default := true;
  end
  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
    Connect;
    Self.ChageDir(CurrentDirEdit.Text);
    SetFunctionButtons(true);
    SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
  finally
    ConnectButton.Enabled := true;
    if Connected then begin
      ConnectButton.Caption := 'Disconnect';
      ConnectButton.Default := false;
    end;
  end;

Pour uploader un fichier (avec boite de dialogue):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  if IdFTP1.Connected then begin
    if UploadOpenDialog1.Execute then try
      SetFunctionButtons(false);
      IdFTP1.TransferType := ftBinary;
 
      IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));
      ChageDir(idftp1.RetrieveCurrentDir);
    finally
      SetFunctionButtons(true);
    end;
  end;

Pour plus de détail regarde bien l'exemple dans:
\Indy9Demos\FTP\Client\mainf.pas
Tu peux le télécharger sur http://www.projectindy.org/DemoDownl...os_26Oct04.zip

[chm0105]

merci, je vais chercher, ou trouver une autre solution

[chm0105]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
AnsiString s ="C:\\image.bmp";
TFileStream *envoi = new TFileStream(s,fmOpenRead);
try
{
      ftp->Put(s,"image.bmp",false);//Put(fichier source, nom qu'il aura sur le serveur, OpenReadWrite)
}
catch(...)
{
        ShowMessage("Erreur !"  );
        return;
}

Ce code fonctionne-t-il chez qqn d'autre? Avez-vous la meme erreur que moi?

[freetof]

Je vais peut etre etre completment HS mais une idée me vient à l'esprit :
Pourquoi ne pas utiliser vlc pour faire de la diffusion vidéo (celle de ta webcam) directement sur le port 8080.

Il me semble qu'il existe une DLL de vlc, tu pourrais peut etre l'utiliser...

[chm0105]

oui je sais que cela existe, mais j'aimerais n'utiliser qu'un seul programme en C++, et non pas utiliser des programmes déjà existant.