MemoryStream vers string?

Version imprimable

Bonjour

J'essaye d'utiliser le composant HTTPCLI de ICS pour télécharger une page web puis le composant TPerlRegEx pour en extraire des informations.

Le problème est que HTTPCLI utilise un TMemoryStream pour récupérer la page, alors que TPerlRegEx attend un string.

J'ai essayé une fonction qui convertit, mais D2007 génère une erreur "Incompatible types":?

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
 
function StreamToText(oStream : TMemoryStream ): String;
var
  oSL : TStringlist;
begin
  oSL := TStringlist.Create;
  oSL.LoadFromStream(oStream);
  result := oSL.Text;
  oSL.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  WebPage : String;
begin
  With HttpCli1 do begin
    URL            := 'www.acme.com';
    RcvdStream := TMemoryStream.Create;
    try
      Get;
    except
      ShowMessage('Oops');
      RcvdStream.Free;
      Exit;
    end;
 
    RcvdStream.Seek(0,0);
    //E2010 Incompatible types: 'TMemoryStream' and 'TStream'
    WebPage := StreamToText(RcvdStream);
    RcvdStream.Free;
  end;
 
  PerlRegEx1.RegEx := '<title>(.+)</title>';
  PerlRegEx1.Options := [preCaseLess];
  //TPerlRegEx attend une string
  PerlRegEx1.Subject := WebPage;
 
  If PerlRegEx1.Match then begin
    ShowMessage(PerlRegEx1.SubExpressions[1]);
  end else begin
    ShowMessage('Not found');
  end;
end;

Quelqu'un aurait-il une idée sur la cause du problème?

Merci.

13/08/2008, 09h33
sat83

Essaye de passer le paramètre TMemoryStream par réference (mot clé var) dans ta fonction...

Merci pour l'info mais... nouvelle erreur:
Code:

1 2 3 4 5 6 function StreamToText(var oStream : TMemoryStream ): String; [...] //E2033 Types of actual and formal var parameters must be identical WebPage := StreamToText(RcvdStream);
Ca n'est pas comme ça qu'il fallait faire peut-être?

Contrôle de type et Transtypage

Bonjour,

Je ne connais pas le composant HTTPCLI de ICS mais il semble que HTTPCLI n' utilise pas un TMemoryStream.

Modifies ton code ou utilise le débogueur pour confirmer le type de RcvdStream.
Et si il s'agit d'un type hérité tu peux le caster.

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
function StreamToText(oStream : TMemoryStream ): String;
var
  oSL : TStringlist;
begin
  oSL := TStringlist.Create;
  oSL.LoadFromStream(oStream);
  result := oSL.Text;
  oSL.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  WebPage : String;
begin
  With HttpCli1 do begin
    URL            := 'www.acme.com';
    RcvdStream := TMemoryStream.Create;
       ShowMessage(RcvdStream.ClassName);
     try
      Get;
    except
      ShowMessage('Oops');
      RcvdStream.Free;
      Exit;
    end;

    RcvdStream.Seek(0,0);
    //E2010 Incompatible types: 'TMemoryStream' and 'TStream'
    WebPage := StreamToText(TMemoryStream(RcvdStream));
    RcvdStream.Free;
  end;

  PerlRegEx1.RegEx := '<title>(.+)</title>';
  PerlRegEx1.Options := [preCaseLess];
  //TPerlRegEx attend une string
  PerlRegEx1.Subject := WebPage;

  If PerlRegEx1.Match then begin
    ShowMessage(PerlRegEx1.SubExpressions[1]);
  end else begin
    ShowMessage('Not found');
  end;
end;

Quelqu'un aurait-il une idée sur la cause du problème?

a+

13/08/2008, 10h13
fredtheman
J'allais répondre que j'avais trouvé la solution en castant explicitement, mais tu m'as devancé :)
Code:

1 2 3 4 RcvdStream := TMemoryStream.Create; [...] PerlRegEx1.Subject := StreamToText(RcvdStream as TMemoryStream);
Merci bp.
13/08/2008, 13h47
guillemouze
tu peux simplement remplacer la fonction de ton premier message par celle-ci :
Code:

1 2 3 4 5 6 7 8 9 10 function StreamToText(oStream : TStream): String; var oSL : TStringlist; begin oSL := TStringlist.Create; oSL.LoadFromStream(oStream); result := oSL.Text; oSL.Free; end;
remplace TMemoryStream par TStream (pas besoin de "var").
Ainisi, tu n'as rien besoin de caster, ca marchera pareil, et ca sera plus propre.
13/08/2008, 13h56
fredtheman

Mais bon sang mais c'est bien sûr :) Merci bp.