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!