[Renommé] Ecriture page html

-
Bonjour,

Apres plusieurs heures de recherche je viens vers vous pour vous demander une aide que voici :

Comment ajouter ceci :

<script language="JavaScript1.2">
var currentpos=0,alt=1,curpos1=0,curpos2=-1
function initialize(){
startit()
}
function scrollwindow(){
if (document.all)
temp=document.body.scrollTop
else
temp=window.pageYOffset
if (alt==0)
alt=1
else
alt=0
if (alt==0)
curpos1=temp
else
curpos2=temp
if (curpos1!=curpos2){
if (document.all)
currentpos=document.body.scrollTop+1
else
currentpos=window.pageYOffset+1
window.scroll(0,currentpos)
}
else{
currentpos=0
//window.scroll(0,currentpos)
location.reload(true)
}
}
function startit(){
setInterval("scrollwindow()",25)
}
window.onload=initialize
</script>


Apres la balise </Head> en cliquant sur un simple Bouton en delphi



Je vous remercie énormément pour vos réponse

EDIT: Ajout de la coloration syntaxique.

Bonne soirée
Afficher la suite 

2 réponses

Messages postés
248
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
4 mars 2016
5
0
Merci
Salut,
désolé il y a plus simple mais j'ai ceci sous la main et copier coller avec quelques modif c'est rapide :p
procedure TForm1.Button1Click(Sender: TObject);
var
NewHTMLScript : TMemoryStream;
FStreamSrcHTML : TFileStream;
FStreamScrScript : TFileStream;
Buffer : array of AnsiChar;
PosSch : Integer;
CRLF : AnsiString;
S : string;
FileSrcHTML : string;
FileSrcScript : string;
function SearchBal(const S, Src: string): Integer;
var
LnS : Integer;
LnSrc : Integer;
I, J : Integer;
PS : PChar;
PSrc : PChar;
FindStr : Boolean;
begin
Result := -1;
LnS := Length(S);
LnSrc := Length(Src);
PS := PChar(S);
PSrc := PChar(Src);
I := 0;
while I < LnSrc do
begin
if PSrc^ = PS^ then
begin
FindStr := True;
J := 0;
while J < LnS do
begin
if PSrc^ <> PS^ then
begin
FindStr := False;
Break;
end;
Inc(PSrc);
Inc(PS);
Inc(I);
Inc(J);
end;
PS := @S[1];
if FindStr then
begin
Result := I;
Break;
end;
end
else
begin
Inc(PSrc);
Inc(I);
end;
end;
end;
begin
NewHTMLScript := TMemoryStream.Create;
try
FileSrcHTML := ExtractFilePath(Application.ExeName)+'HTML Source.html';
FileSrcScript := ExtractFilePath(Application.ExeName)+'HTML Script.html';
FStreamSrcHTML := TFileStream.Create(FileSrcHTML, fmOpenRead);
FStreamScrScript := TFileStream.Create(FileSrcScript, fmOpenRead);
try
SetLength(Buffer, FStreamSrcHTML.Size);
FStreamSrcHTML.ReadBuffer(Pointer(Buffer)^, Length(Buffer));
S := '</head>';
PosSch := SearchBal(S, PAnsiChar(Buffer));
if PosSch <> -1 then
begin
NewHTMLScript.Write(Buffer[0], FStreamSrcHTML.Size);
NewHTMLScript.Seek(PosSch, 0);
FStreamSrcHTML.Seek(PosSch, 0);
CRLF := #13#10;
NewHTMLScript.Write(PChar(CRLF)^, Length(CRLF));
NewHTMLScript.CopyFrom(FStreamScrScript, FStreamScrScript.Size);
NewHTMLScript.CopyFrom(FStreamSrcHTML, FStreamSrcHTML.Size - PosSch);
NewHTMLScript.SaveToFile(ExtractFilePath(Application.ExeName)+'HTML Source + Script.html');
end
else
MessageDlg(Format('La balise %s est introuvable dans le fichier :'#13#10'"%s"',[S, FileSrcHTML]), mtError, [mbOK], 0);
finally
FStreamSrcHTML.Free;
FStreamScrScript.Free;
end;
finally
NewHTMLScript.Free;
end;
end;
@+
Merci c'est exactement ce qu'il me fallait et cela fonctionne tres bien


merci encore
Commenter la réponse de cs_yanb
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10
0
Merci
Salut
Ce bout de code n'est pas du delphi
Que veux tu faire exactement
Balise HEAD c'est quoi ?
sois plus précis si tu veux qu'on t'aide
Cordialement
Commenter la réponse de dubois77