Discussion :

[sp2308]

Bonjour

J ai cree une petite procedure qui a pour but de sauvegarder sur c une page aspiree sur le net mais elle me provoque exeption EAccesViolation.
il s agit de la procedure suivante que j appelle avec : SaveUrl(url2); (url2 etant correctement affichee dans un memo)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure SaveUrl (url2:string);
var
  F: TextFile;
  PageAspiree : string;
  IdHTTP3: TIdHTTP;
begin
  PageAspiree := idhttp3.Get(url2);
  AssignFile(F, 'c:\turf\avecprocedure.txt');
  Rewrite(F);
  WriteLN(F, PageAspiree);
  CloseFile(F);                     
end;

apres avoir enleve progressivement les lignes j imagine que le pb provient du fait que url2 est vide car il m est impossible de l afficher dans un memo dans cette procedure...

meri de votre aide

[jaduta]

Slt

je pense que le soucis est au niveau de l'écriture de document web ds ton fichier .txt

Code :

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

1
2
 
WriteLN(F, PageAspiree);

essaie pour commencer d'écrire ds ton fichier .txt la valeur de ta variable "url2:string"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure SaveUrl (url2:string);
var
  F: TextFile;
  PageAspiree : string;
  IdHTTP3: TIdHTTP;
begin
  PageAspiree := idhttp3.Get(url2);
  AssignFile(F, 'c:\turf\avecprocedure.txt');
  Rewrite(F);
  WriteLN(F, url2);
  CloseFile(F);                     
end;

si tu obtiens le lien url, c'est que le soucis vient de la récupération des valeurs du site

[sp2308]

merci de ton aide
effectivement le pb provient de la recup du fichier car avec ta manip l url est bien enregistree dans le fichier...

ailleurs dans le script j autilise la meme procedure avec un IdHTTP.Get('www.unsite.com'); et cela fonctionne parfaitement pourtant...


ben du coup je sais plus du tout...

Edit : du coup j ai modifié mon code. Je charge la page en variable que je passe a la procedure qui sauvegarde et cela fonctionne parfaitement mais si qqun pouvait m aider à comprendre. Je debute et c est encore un mystere là....
merci

[neilbgr]

Violation d'accès signifie souvent qu'on utilise une référence à un objet qui n'est pas instancié (ou du moins la référence ne pointe pas sur un objet du type attendu).
Et là, c'est bien le cas.
Dans ton code, tu déclare bien la référence IdHTTP3 (de type TIdHTTP), mais nul part tu créés une instance (code attendu: IdHTTP3 = TIdHTTP.Create; ).
Or, tu utilises directement IdHTTP3.Get(); ... et là Délphi n'apprécie pas vraiment.

Remarque:
Il est tout à ton honneur (en tant que débutant, ou pas !) de chercher à comprendre pourquoi ça plante, alors que tu as pu faire autrement et éviter le problème.
Bravo

[Rayek]

Pour ma part je ferais comme cela

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
 
procedure SaveUrl (url2:string);
var
  lst : TStringList;
  IdHTTP3: TIdHTTP;
begin
  lst := TStringList.Create;
  IdHttp3 := TIdHttp.Create;
  try
    lst.text := idhttp3.Get(url2);
    lst.SaveToFile('c:\turf\avecprocedure.txt');
  finally
    lst.Free;
    IdHttp3.Free;
  end;  
end;

[sp2308]

merci

je vais voir ça ce soir la peux pas

par contre une question a laquelle je ne trouve pas de reponse
Là ça ne touren pas parceque je n ai pas instancié l objet :ok j ai compris
par contre dans le 'corps' du code, celui qui appelle cette procedure j utilise le meme objet que je n ai pas non plus instancié et cela fonctionne. Pourqoui ?

merci

[evarisnea]

par contre une question a laquelle je ne trouve pas de reponse
Là ça ne touren pas parceque je n ai pas instancié l objet :ok j ai compris
par contre dans le 'corps' du code, celui qui appelle cette procedure j utilise le meme objet que je n ai pas non plus instancié et cela fonctionne. Pourqoui ?

merci

peut être as tu déposé un objet IdHTTP3 sur ton formulaire ?

[sp2308]

effectivemennt.... donc le fait de le poser 'l instancie' ??? enfin je crois que tu auras compris ce que je veux dire pke j ai posé deux autre meme composant dont le IdHttp3...

maintenant la dernier question
IdHttp3 := TIdHttp.Create me provoque une erreur
pour etre correct je dois faire IdHttp3 := TIdHttp.Create(application) est ce normal et à quoi est du ce fait ?

merci à tous

[evarisnea]

effectivemennt.... donc le fait de le poser 'l instancie' ??? enfin je crois que tu auras compris ce que je veux dire pke j ai posé deux autre meme composant dont le IdHttp3...

en gros oui. tous les composants posés sur ta forme seront automatiquement instanciés au chargement de ta form.

maintenant la dernier question
IdHttp3 := TIdHttp.Create me provoque une erreur
pour etre correct je dois faire IdHttp3 := TIdHttp.Create(application) est ce normal et à quoi est du ce fait ?
merci à tous

tu dois savoir qu'un composant instancié doit être détruit après utilisation. le paramètre que tu passe au constructeur Create du TIdHttp est le composant qui se chargera de détruire automatiquement le TIdHttp. je t'invite à te documenter un peu dans l'aide de delphi à ce propos.

[sp2308]

ok merci à tous