cgidate.dpr

来自「Delphi高级开发指南是开发程序的好帮手」· DPR 代码 · 共 25 行

DPR
25 行
字号 
program CgiDate;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  writeln ('HTPP/1.0 200 OK');
  writeln ('SERVER: My Web Server');
  writeln ('CONTENT-TYPE: TEXT/HTML');
  writeln;
  writeln ('<HTML><HEAD>');
  writeln ('<TITLE>Time at this site</TITLE>');
  writeln ('</HEAD><BODY>');
  writeln ('<H1>Time at this site</H1>');
  writeln ('<H2>');
  writeln (FormatDateTime(
    '"Today is " dddd, mmmm d, yyyy, " and the time is" hh:mm AM/PM',
     Now));
  writeln ('</H2>');
  writeln ('<I>Page generated by CgiDate.exe</I>');
  writeln ('</BODY></HTML>');
end.

cgidate.dpr - 源码说明

本页面展示了「Delphi高级开发指南是开发程序的好帮手」中的 cgidate.dpr 源码文件，采用 DPR 编程语言编写，共 25 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?