Discussion :

[Targan]

Bonjour,

je cherche 2 routines (encodage/decodage) pour transformer un fichier physique (generalement a partir d un TFileStream) vers une chaine mime (string).

J'avais trouve une seule solution sur le net à base de compo Indy, mais en version 10 la fonction permettant de decoder ne semble plus exister

Si qqun a une idee ou un lien ca serait sympa.

Merci.

[Targan]

A titre d infos pour ceux que ca interesserait :

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
39
40
41
42
function FileToMime(FileName: String): String;
var
    FS: TFileStream;
begin
    FS:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

    try
        with TIdEncoderMIME.Create(nil) do
            begin
            try
                Result := Encode(FS);
            finally
                Free;
            end;
            end;
    finally
    FS.Free;
    end;
end;

procedure MimeToFile(MimeString: String; FileName: String);
var
    TFS: TIdFileStream;
begin
    try
        TFS:= TIdFileStream.Create(FileName, fmCreate);

        with TIdDecoderMIME.Create(nil) do
            begin
             DecodeBegin(TFS);
             try
                 Decode(MimeString);
             finally
                 DecodeEnd;
                 Free;
             end;
            end;
    finally
        TFS.Free;
    end;
end;