Discussion :

[waste]

bonjour, est il possible de copier le contenu d'un TMemoryStream dans une variable string ??

c'est toujours en rapport avec mes fonctions leftstr etc...

en fait je cherche à copier le contenu d'une page web dans un memorystream

pour ensuite le mettre dans une variable et me positionner dans la chaine pour

extraire des caractères ,et cela pour porter mon code vb6 de récupérateur d'ip publique,

je procède à l'aide d'un idhttpclient , comme cela , mais le compilo me jette apres lorsque je veux copier dans la variable ,

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
 
procedure TForm2.Button1Click(Sender: TObject);
 
   var   Sfile : TMemoryStream;
   var         i: integer;
   var      iip : string;
 
 
 
 
 
begin
 
    Sfile := TmemoryStream.Create;
 
 
    DownloadHTTP('http://www.mon-ip.fr',TMemoryStream(Sfile));
 
       Sfile := iip ;
 
       i := pos(iip, 'Votre adresse IP est :');
 
       iip := MidStr (iip, i + 46,12);
 
       iip := Leftstr(iip, i - 1);
 
       Edit1.Text := iip;
 
 
       end;

vous allez surement me dire , pourquoi ne pas copier la page directement dans

une variable plutot que de passer par un tMemoryStream ?

parce que je ne sais pas , avec un filestream ok , memorystream ok mais voila ....

[sjrd]

Utilise un TStringStream ?

[waste]

ok j'ai essayé , toujours le même probleme , erreur au niveau du

Code :

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

Sfile := iip ;

pourtant j'ai bien tout passé en TStringStream

[sjrd]

Non mais faut lire un peu la doc, aussi. Je te parle de TStringStream parce que cette classe a une propriété DataString. Donc remplace ta ligne

Code :

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

Sfile := iip;

(qui aurait d'ailleurs dû être

Code :

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

iip := Sfile;

depuis le début, pour être un minimum logique)
par la ligne suivante :

Code :

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

iip := Sfile.DataString;

[waste]

exactement , merci , désolé j'ai pas encore les automatismes pour les variables

,d'ailleurs je l'avais pas non plus pour le vb6 !! j'essaierais d'y faire attention pour que ce soit plus lisible pour vous ,habitués du code ,

ok pour ma variable , j'ai bien le contenu dans l'edit , après c'est probleme de

positionnement dans la chaine , c'est pas le texte demandé ! mais bon ça va se

régler , pourtant j'ai utilisé la même url et position que dans mon code vb6 ,

apres je passe par un composant Inet pour lire la page en vb6 et là indy en delphi ,