6. CGIプログラムでリンク元を取得する関数
HTTP_RefererをWindowsAPIから取得
 


function Getreferer : string ;
var
        Buf : array[0..4095] of Char;
begin
        Setstring(result,buf,getenvironmentvariable('HTTP_REFERER',buf,sizeof(buf)));
end;

---
GetEnvironmentVariavle WindowsAPIによって取得し、Delphiに引き渡す
(簡単だけど、何がどうなっているのやら・・・)


戻る
竹村 匡正  takemura@sahs.med.osaka-u.ac.jp