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
|
try
If FServer.Ckid.checked then begin
AssignFile(f, chappli + 'Cincapip.html');
Rewrite(f);
WriteLn(f, '<!DOCTYPE html>');
WriteLn(f, '<html><!-- ' + DateTimeToStr(Now) + ' -->');
WriteLn(f, '<head>');
WriteLn(f, '<title>Votre IP</title>');
WriteLn(f, '</head>');
WriteLn(f, '<body><!-- ' + FServer.IPServer.text + ' -->');
WriteLn(F, '<!-- Votre IP -->Votre IP modifiée le : ' +datetostr(date) + ' à '+ timetostr(time));
WriteLn(f, '<br><br>');
WriteLn(f, '<a href="http://'+FServer.IPServer.text+ ':'+FServer.EDid.text+'">'+ FServer.IPServer.text +'') ;
WriteLn(f, '</a>');
WriteLn(f, '</body>');
WriteLn(f, '</html>');
end
else begin
AssignFile(f, chappli + 'Cincapip.html');
Reset(F);
Rewrite(f);
WriteLn(f, '<!DOCTYPE html>');
WriteLn(f, '<html><!-- ' + DateTimeToStr(Now) + ' -->');
WriteLn(f, '<head>');
WriteLn(f, '<title>Votre IP</title>');
WriteLn(f, '</head>');
WriteLn(f, '<body><!-- ' + FServer.IPServer.text + ' -->');
WriteLn(F, '<!-- Votre IP -->Votre IP modifiée le : ' +datetostr(date) + ' à '+ timetostr(time));
WriteLn(f, '<br><br>');
WriteLn(f, '<a href="http://'+FServer.IPServer.text+'">'+ FServer.IPServer.text +'') ;
WriteLn(f, '</a>');
WriteLn(f, '</body>');
WriteLn(f, '</html>');
end
finally
CloseFile(f);
end;
end; |
Partager