Progression BLOB

Version imprimable

15/03/2005, 20h59
rtoutain

Progression BLOB

Bonjour a tous !

J'ais une application qui doit uploader des photo (env 700 ko chacune) dans une base de donnée Firebird distante (au travers d'un VPN).
Le problème est que cette opération prends du temps et l'utilisateur doit resté informé de l'avancé de l'upload (l'upload prends environs 3 mn).

Comment faire pour connaitre la progression de l'envois de l'image dans le blob lors du Commit ? :?:

Merci d'avance,

Romain T.
16/03/2005, 13h14
/dev/null

Je ne vois pas de solution simple... mais ce n'est pas ma spécialité il faut dire :D
Peut être pourait tu utiliser le principe du Packet ?

Tu découpe ton up en packet de 100Ko... et tu informe sur le nombre de packet émis...

Enfin... c'est ce que j'en dis... :roll:
16/03/2005, 21h59
Chaps

"... lors du Commit ?" du submit tu veux dire.

Pour avoir une solution, il faudrait savoir avec quoi l'upload se fait.
Par exemple le client upload avec un navigateur vers une dll isapi...

Pour ceux que ca intéresse, j'ais trouvé uné méthode pour la progression.

En fait, c qui est long, c'est le SaveToStream du TBlobField.
J'ais donc créé une classe TBlobFieldEx avec SaveToStream overloadé.
Ca nécéssite aussi la création d'un TStreamEx avec un callback pour la progression sur le CopyFrom. (merci les DCU de déboguage).

Voila le source des classes...

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit StreamEx;
 
interface
 
Uses
   Windows, Classes,
   DB;
type
TStreamEx = class(TMemoryStream)
    private
       FOnProgress : TNotifyEvent;
       procedure Progress(Sender : TObject);
    public
       property OnProgress : TNotifyEvent Read FOnProgress Write FOnProgress;
       function CopyFrom(Source: TStream; Count: Int64): Int64;overload;
       constructor Create();
end;
 
TBlobFieldEx = class(TBlobField)
    procedure SaveToStream(Stream: TStreamEx);overload;
end;
 
implementation
 
 
function TStreamEx.CopyFrom(Source: TStream; Count: Int64): Int64;
Const
  MaxBufSize = $F000;
Var
  BufSize, N : Integer;
  Buffer : PChar;
Begin
  If Count = 0 Then
  Begin
    Source.Position := 0;
    Count := Source.Size;
  End;
  Result := Count;
  If Count > MaxBufSize Then
    BufSize := MaxBufSize
  Else
    BufSize := Count;
  GetMem(Buffer, BufSize);
  Try
    While Count <> 0 Do
    Begin
      If Count > BufSize Then
        N := BufSize
      Else
        N := Count;
      Source.ReadBuffer(Buffer^, N);
      WriteBuffer(Buffer^, N);
      Dec(Count, N);
      // A chaque buffer copié, Progress est appelée
      Progress(Self);
    End;
  Finally
    FreeMem(Buffer, BufSize);
  End;
 
 
end;
 
constructor TStreamEx.Create;
begin
 
end;
 
procedure TStreamEx.Progress(Sender: TObject);
begin
if Assigned(FOnProgress) then
   FOnProgress(Sender);
end;
 
{ TBlobFieldEx }
 
procedure TBlobFieldEx.SaveToStream(Stream: TStreamEx);
var
  BlobStream: TStream;
begin
  BlobStream := DataSet.CreateBlobStream(Self, bmRead);
  try
    Stream.CopyFrom(BlobStream, 0);
  finally
    BlobStream.Free;
  end;
end;
end.

[Balise ajoutée par King Kaiser]

17/03/2005, 15h33
/dev/null

Je serait pour que tu la propose dans la section Code Source ;)
Et la prochaine foit panse a la balise Code et surdout a édenté ton code :D
17/03/2005, 17h51
Giovanny Temgoua

Citation:

Envoyé par /dev/null

Je serait pour que tu la propose dans la section Code Source ;)

+1

Il faut fournir le zip contenant un exemple :wink:
Pour la rubrique code sources, c'est ici :
:arrow: http://www.developpez.net/forums/viewtopic.php?t=195625

A+