Discussion :

[fveto]

Bonjour à tous,

J'ai trouvé un petit soft compatible D6 pour faire UpLoad des fichiers en ftp

Les petits fichiers texte se passe sans problème, le problème est avec les fichiers pdf d'environ 350ko, je trouve les pdf déformés ou partiel !!!

voilà le code :

Merci à tous.

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
 
  with TIdFtp.Create() do
  try
    Username:=edit6.text;
    Password:=edit7.text;
    Passive:=checkbox1.checked;
    Connect(edit4.text, strtointdef(edit5.text, 21));
    if edit8.text<>'' then
      ChangeDir(edit8.text);
    for i:=1 to listbox1.items.count do
    begin
      memo1.lines.add('starting upload: '+listbox1.Items[i-1]);
      try
        Put(listbox1.Items[i-1]);
        memo1.lines.add('finished upload: '+listbox1.Items[i-1]);
      except
        on e:exception do
          memo1.lines.add('error uploading '+listbox1.Items[i-1]+': '+e.message);
      end;
    end;
  finally
    free;
  end;

[fveto]

Le problème vient de Transferttype, il faut le mettre à ftBinary