龙七的程序员生活

1、IdHttpServer返回网页浏览器没直接显示,而是弹出下载对话框的解决方法

最近用Indy10的TIdHttpServer写一个简单的http服务器,原来按网上一个indy9的方法返回服务器目录下的一个html文档,代码如下:

procedure TForm3.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const s='D:\MyVcl\Test\idCGIRunner\server\web\index.html';
begin
   //....
AResponseInfo.ServeFile(AContext,s);

首先下载SuperObject 代码包

官网 http://www.progdigy.com/?page_id=6

下载地址 http://code.google.com/p/superobject/downloads/list

官方论坛 http://www.progdigy.com/forums/viewforum.php?f=5

好，开始例子

var
  obj: ISuperObject;
begin
  obj := SO('{"foo": true}');                      

假设有张学生成绩表(tb)如下:
Name Subject Result
张三 语文　　74
张三 数学　　83
张三 物理　　93
李四 语文　　74
李四 数学　　84
李四 物理　　94
想变成

姓名         语文        数学        物理         
---------- ----------- ----------- -----------
李四         74          84          94
张三        

Delphi中自带函数有inttostr,inttohex(可查看帮助) //十六进制(S)-->>十进制(I) [重写:Jey] function hextoint(s: string): Integer; begin           //$代表16进制 Result:=StrToInt('$'+s); end; //十进制转换为二进制字符串 [重写:Jey] function inttoBin(i: integer): string;

使用串口SPCOMM接收数据的时候0x11和0x13无法接受，从时间间隔上看来可以接收，但是无法显示。网上查错误得：

------------------------------------------------------------------------

OutX_XonXOffFlow/InX_XonXoffFlow：这个属性是指进行发送/接收时的软件握手标志，两个握手信号之间的数据被认为是通讯数据，收到握手信号后，通讯就中止了。

FOutx_XonXoffFlow := True;
FInx_XonXoffFlow := True;

XOffChar/XOnChar：这是指握手的字节，默认的初始中，有

FXonChar := chr($11);
FXoffChar := chr($13);

uses superobject;

 

function JsonToDataSet(str:string):string;
var
  jo,jo_Data: ISuperObject;
  item: TSuperObjectIter;
  DataStr:string;
  i,iCount,sCount:Integer;
  KeyArray:array of string;
  ValArray:array of string;
  cds1: TClientDataSet;
  ds1:TDataSource;
begin
  Result:='';
  //声明TClientDataSet TDataSource

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo;

前言:
Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。

文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。

文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。

文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。

1.文件变量与文件名关联: 
AssignFile(VarTxt, FileName);
FileName 如果省略路径将默认当前目录。

2.初始化读写有三种方式:
(1) Reset: 只读打开, 指针移到文件头;
(2) Rewrite: 创建新文件并打开, 只写;
(3) Append: 从尾部追加, 指针当然在文件尾。

使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:

---

uses IOUtils; procedure TForm1.Button1Click(Sender: TObject); const SourceDir = 'C:\Temp\Folder1'; { 源文件夹必须存在 }

//判断文件是否存在 FileExists var f: string; begin f := 'c:\temp\test.txt';