Bonjour,


Dans le cadre de mon projet, je dois lire les données issues d'une PIC via une page web. J'ai déjà réalisé mon site web ainsi que la communication en USB, tout est fonctionnel. A présent pour améliorer l'affichage de mes données je souhaite diviser mon site web en différentes frame. Je suis débutant en html, j'ai donc commencé par réaliser le code suivant dans un editeur de texte :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
<html>
<head>
<title>Youpi</title>
</HEAD>
<FRAMESET COLS="50,50">
<FRAME NAME="cadre1" SRC="Frame1.htm">
<FRAME NAME="cadre2" SRC="frame2.htm">
</FRAMESET></html>
La page s'affiche normalement sous firefox. A présent j'ai voulu modifié mon projet sous Delphi en écrivant :


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
 
constructor Thtml.Create( Titre : string );
begin
     CodePageHTML := 'HTTP/1.0 200 OK' + #10#13 +
                     'I/O module for Home Automation' + #10#13 +
                     'Content-Type : text/HTML' + #10#13 + #10#13 +
 
    '<html>' + #10 +
    '<head>' + #10 +
    '<title>' + {Titre}'Youpi' + '</title>' + #10 +
    '</HEAD>' + #10 +
      '<FRAMESET COLS="50,50">' + #10 +
      '<FRAME NAME="cadre1" SRC="Frame1.htm">' + #10 +
      '<FRAME NAME="cadre2" SRC="frame2.htm">' + #10;
end;
 
procedure Thtml.CloseEdit;
begin
    CodePageHTML := CodePageHTML + '</FRAMESET></html>';
end;
Dans mon programme principale je fais :

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
 
procedure TServerPage.ServerWebClientRead( Sender: TObject; Socket: TCustomWinSocket );
var
    TxtRecu, Commande : string;
 
begin
    TxtRecu := Socket.ReceiveText;
 
 
    PageHTML := THTML.Create( '' );   
    PageHTML.CloseEdit;
 
    Socket.SendText( PageHTML.GetCodePage );
    Application.ProcessMessages;
 
    Socket.Close;
    PageHTML.Free;
end;
Or lorsque j'affiche ma page web j'obtiens une page avec 4 frames au lieu de 2, les frames sont redivisées en 2. Lorsque j'affiche le code source de ma page générée par mon serveur j'obiens pourtant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
<html>
<head>
<title>Youpi</title>
</HEAD>
<FRAMESET COLS="50,50">
<FRAME NAME="cadre1" SRC="frame1.htm">
<FRAME NAME="cadre2" SRC="frame2.htm">
</FRAMESET></html>
Sachant que les page frame1.htm et frame2.htm ne contiennent que du texte.

Ou est mon erreur ?

Merci d'avance