请解释下面delphi代码每句的含义

Posted 2023-03-26

function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
if not fileexists(SourceFileName) then exit;
S:=TFileStream.Create(SourceFileName,fmShareDenyNone);
result:='no';
try
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate);
try
T.CopyFrom(S,S.Size);
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;

end;

function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
//判断源文件是否存在，不存在则退出，fileexists是系统函数
if not fileexists(SourceFileName) then exit;
//装载源文件，创建一个文件流对象
S:=TFileStream.Create(SourceFileName,fmShareDenyNone);
result:='no';
try
//装载目标文件，创建一个文件流对象
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate);
try
//从源文件复制所有内容到目标文件，要复制的字节数=S.Size是源文件总长度
T.CopyFrom(S,S.Size);
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;
end; 参考技术A function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
if not fileexists(SourceFileName) then exit; //源文件不存在，则退出函数
S:=TFileStream.Create(SourceFileName,fmShareDenyNone); //以共享方式创建源文件流
result:='no';
try
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate); //以读写方式创建目标文件流
try
T.CopyFrom(S,S.Size); //将源文件流复制到目标文件流
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;

end;

Python代码求解释 求大神解释一下这段代码 详细点 最好每句加上注释 谢了

import SimpleHTTPServer
import SocketServer
import logging
import cgi

import urllib
import urllib2
import cookielib
def grade(uname,password):
cj=cookielib.CookieJar()
opener=urllib2.build_opener(urllib2.HTTPCookieProcessor(cj))
req=urllib2.Request("http://202.115.139.16/login.php",urllib.urlencode("uname":uname,"upwd":password))
req.add_header("Referer", "http://202.115.139.16/login.php")
d=opener.open(req)

f=opener.open("http://202.115.139.16/sys_xj_xscj/sys_xj_xscj.php")

result=''
lines = f.readlines()
list1 = lines[551:682]
list2 = lines[1:21]
for line in list2:
result+=line
for line in list1:
result+=line
result+="</table>"
#result= f.read()

fexit=opener.open("http://202.115.139.16//closesys/closesys.php")
return result

PORT = 13000

class ServerHandler(SimpleHTTPServer.SimpleHTTPRequestHandler):

def do_GET(self):
#logging.error(self.headers)
SimpleHTTPServer.SimpleHTTPRequestHandler.do_GET(self)

def do_POST(self):
#logging.error(self.headers)
form = cgi.FieldStorage(
fp=self.rfile,
headers=self.headers,
environ='REQUEST_METHOD':'POST',
'CONTENT_TYPE':self.headers['Content-Type'],
)
uname=form.list[0]
upw=form.list[1]
uname=str(uname)[26:-2]
upw=str(upw)[24:-2]
self.send_response(200)
self.send_header("Content-type","text/html;charset=gb2312")
self.end_headers()
self.wfile.write(grade(uname,upw))

Handler = ServerHandler

httpd = SocketServer.TCPServer(("", PORT), Handler)

print "Service port:",PORT
httpd.serve_forever()
登陆后抓取某一学期的成绩

首先引用py中网络的相关组件
def grade(uname,password):从外部获取用户名和密码，带入opener中，按网站的接收格式向地址发送信息，等待网站返回结果：成功登录或者失败。
成功后打开成绩页面，后面就是依照成绩的格式读取相应字段（科目，成绩）写入result中
class ServerHandler(SimpleHTTPServer.SimpleHTTPRequestHandler):这是防止由于是PY发出的请求而非浏览器请教被网站拒绝而设置的伪装，同时测试该网页接口。
最后打印result。追问

能详细解释下里面的参数和方法各自的作用么

参考技术A 建立cookie，post帐号密码后，通过这个cookie去访问相关的链接。就这么简单