[IdFTP]Problème transfert fichier

**Isa31** · 08/12/2006, 17h05

Bonjour,

J'ai un problème de transfert de fichier avec le composant IdFTP. J'utilise Delphi 7.

En fait j'ai un fichier qui est assez gros entre 2 et 3 Go et mon transfert, fait a l'aide d'un "Get", plante en plein milieu à 2 147 483 647 octets. Je n'arrive pas a faire des transferts plus important.

Comment faire pour pouvoir transférer la totalité de mon fichier???

Merci d'avance.

Isa

**Jipété** · 08/12/2006, 18h12

'Soir !

2 147 483 647 octets

Ça, c'est la limite haute d'un integer.
Je ne connais pas les composants Indy, mais s'ils sont limités à cette valeur, te reste plus qu'à "splitter" ton fichier.
Ou y a p'têt d'autres moyens ? Mais j'les connais point !

Mes 2 cts,
--
jp

**edam** · 08/12/2006, 19h18

les données reçu, où tu met les??

**LadyWasky** · 08/12/2006, 22h40

- Soit tu utilises autre chose que TIdFTP (un autre composant, la SDK d'un logiciel FTP)
- Soit tu te bidouilles un descendant de TIdFTP qui utilise un Cardinal et non un integer pour comptabiliser la taille des fichiers
- Soit tu coupes tes fichiers en morceau,
- soit tu les charges par morceaux (à la manière des downloaders)

Sinon, je sêche

**Jipété** · 09/12/2006, 14h15

Yop !

Soit tu te bidouilles un descendant de TIdFTP qui utilise un Cardinal et non un integer

et tu seras limitée par le cardinal, presque 4,3 gig, mais au train où vont les choses et la taille des fichiers...

Mes 2 cts,
--
jp

**LadyWasky** · 09/12/2006, 14h40

Envoyé par Jipété

Yop !
et tu seras limitée par le cardinal, presque 4,3 gig, mais au train où vont les choses et la taille des fichiers...

Mes 2 cts,
--
jp

bah, c'est toujours mieux que deux gigs non ?

**edam** · 11/12/2006, 18h43

Envoyé par edam

les données reçu, où tu met les??

qu'on tu commence la réception tu met les bloc reçu où???
en memoir ou directement dans un fichier???

**LadyWasky** · 11/12/2006, 20h50

Avec ce bout de code, tu devrais pouvoir t'affranchir des 2 Go :

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
28
29
30
31
32
33
34
35
36
37
38
uses Wininet;
 
function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
 Result:=False;
 sAppName := ExtractFileName(Application.ExeName);
 hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
               nil, nil, 0);
 try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
  try
   AssignFile(f, FileName);
   Rewrite(f,1);
   repeat
    InternetReadFile(hURL, @Buffer,
                     SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
   until BufferLen = 0;
   CloseFile(f);
   Result:=True;
  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end
end;