Récupérer des données dans une page HTML

**newdelirium** · 26/10/2005, 19h44

Bonjours voila j'ai delphi 6 et j'essaye de faire un programme qui récupére des donné dans une page HTML pour les enregistré dans un fichier mais lorsque je compile j'ai cette erreur :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program hotel;
 
 
 
uses
  SysUtils,btsinfo;
 
type
  Thotel=record
  designation:string[30];
  numrue:string[10];
  rue:string[50];
  ville:string[20];
  code, prix, cp:integer;
  end;
var
rec:file of Thotel;
monhotel:Thotel;
designation,numrue,rue,ville:string;
code, prix, cp:integer;
 
begin
  //attention la procedure RequestFormInit et la fonction RequestFom ne font pas partie de DELPHI !
  RequestFormInitialize(); //permet de transferer les données du formulaire dans un fichier temporaire.
  designation:=requestform('designation'); //recherche de la clé 'nom' dans le fichier temporaire et renvoie de la valeur.
  numrue:=requestform('numrue');
  rue:=requestform('rue');
  ville:=requestform('ville');
  code:=strtoint(requestform('code'));
  prix:=strtoint(requestform('prix'));
  cp:=strtoint(requestform('cp'));
 
  //ecriture à l'écran
  writeln('Content-type: text/html');
  writeln;
  writeln('<html>');
  writeln('<head><title>Enregistrement</title></head>');
  writeln('<body>');
  writeln('<h1>Voici les caractéristiques de l''hôtel<hr></h1>');
  writeln('Designation               : '+designation+'<br>');
  writeln('numrue              : '+numrue+'<br>');
  writeln('rue              : '+rue+'<br>');
  writeln('ville              : '+ville+'<br>');
  writeln('code              : '+inttostr(code)+'<br>');
  writeln('prix              : '+inttostr(prix)+'<br>');
  writeln('cp              : '+inttostr(cp)+'<br>');
  writeln('</body></html>');
 
  //enregistrement des données sur l'hotel dans un fichier du serveur
  monhotel.designation:=designation;
  monhotel.numrue:=numrue;
  monhotel.rue:=rue;
  monhotel.ville:=ville;
  monhotel.code:=code;
  monhotel.prix:=prix;
  monhotel.cp:=cp;
  assign(rec,'hotel.dat');
  rewrite(rec);
  write(rec,monhotel);
  close(rec);
end.

Merci pour votre aide

[/code]
_________________
• Titre modifié par Sub0 - Ancien titre : Aide pour prog en delphi
• Merci de choisir un titre clair et explicite!

**petitcoucou31** · 26/10/2005, 19h55

salut , je sais pas ou dans ton code , mais le message t'indique tu essayes de convertir un chaine vide en entier .

Bye !

**dd16** · 26/10/2005, 20h05

+1

Probleme sur les fonctions strtoint où tu essaye de convertir une chaine vide (retour d'un requestform) en entier.

Utilise plutot TryStrToInt pour gérer ce genre de problèmes.

**Sub0** · 26/10/2005, 20h18

Salut et bienvenue dans les forums de Developpez.com !

IMPORTANT :
• Servez-vous de la touche

• Merci de chercher un peu avant de poster dans le forum...
• Chercher une réponse dans la FAQ Delphi
• Chercher une réponse dans la page sources Delphi
• Ne poster qu'en dernier recours!
• Merci de choisir un titre clair et explicite!

• Merci de lire et de respecter les règles du forum!

ps : Je donne systématiquement ce message aux nouveaux venus.

Envoyé par newdelirium

Bonjours voila j'ai delphi 6 et j'essaye de faire un programme qui récupére des donné dans une page HTML pour les enregistré dans un fichier...

Si j'ai bien compris ton objectif, voici une fonction qui permet de lancer une url et de récupérer le contenu d'une page web :

http://www.developpez.net/forums/viewtopic.php?p=1753885#1753885

Lien tout en bas à gauche de cette fenêtre

Récupérer des données dans une page HTML

Langage Delphi

Discussions similaires

Partager

Partager