Discussion :

[fredtheman]

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 :

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
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.

[sat83]

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

[fredtheman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Yurck]

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 :

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
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+

[fredtheman]

J'allais répondre que j'avais trouvé la solution en castant explicitement, mais tu m'as devancé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    RcvdStream := TMemoryStream.Create;
    [...]
    PerlRegEx1.Subject := StreamToText(RcvdStream as TMemoryStream);

Merci bp.

[guillemouze]

tu peux simplement remplacer la fonction de ton premier message par celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fredtheman]

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