通过Delphi的TWebBroker上载文件,用的是Dll形式 (30分)

  • 主题发起人 nexthawks
  • 开始时间
N

nexthawks

Unregistered / Unconfirmed
GUEST, unregistred user!

在客户端页面上是用的文件域,在服务器端是用的TWebBroker,传过去之后,TRequest下的File.Count读到为0,请问如何解决.客户端的网页下的代码如下,也就是HTML为:
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="a.dll/up"> //如 a.dll/up为所对应的操作
<p>
<input type="text" name="textfield">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form>
</body>
</html>
 
S

sxbing

Unregistered / Unconfirmed
GUEST, unregistred user!
我刚写了一个文件收发器,现公开重要的部分。。。
client
Var
fsSend: TFileStream;
fmOpen: Word;
dataend: boolean;
Const
MP_QUERY ='1';
MP_REFUSE ='2';
MP_ACCEPT ='3';
MP_NEXTWILLBEDATA='4';
MP_DATA ='5';
MP_ABORT ='6';
MP_OVER ='7';
MP_CHAT ='8';
MP_FILEPROPERTY ='9';
MP_END ='0';
iBYTEPERSEND = 256;
procedure TNetSendData_Form.btnConnectClick(Sender: TObject);
begin
inherited;
Try
cs.Address:=edtIPAddress.Text;
cs.Port:=10001;
cs.Active := True;
Except
Self.StatusBar1.Panels[1].Text := '连接税务局主机不成功!';
MessageDlg('服务器忙,请稍后再试!', mtInformation,
[mbOk], 0);
end;
end;

procedure TNetSendData_Form.btnSendFileClick(Sender: TObject);
begin
inherited;
if OpenDialog.Execute then
begin
Memo1.Lines.Add(OpenDialog.FileName);
end;
end;

procedure TNetSendData_Form.BitBtn2Click(Sender: TObject);
begin
inherited;
cs.Socket.SendText(MP_QUERY+GetFileName(Memo1.Lines.Strings[0]));//FileSize???
// ShowMessage(GetFileName(Memo1.Lines.Strings[0]));
fsSend := TFileStream.Create(Memo1.Lines.Strings[0],fmOpen);
Gauge1.MaxValue := Trunc(fsSend.
Size/iBYTEPERSEND)+1;
Memo1.Lines.Add('文件大小为:'+IntToStr(Trunc(fsSend.
Size/iByTEPERSEND)+1)+'字节');
StatusBar1.Panels[1].Text := '数据传输中,请稍候......';
dataend := False;
end;

procedure TNetSendData_Form.CSRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sTemp,sRecv:string;
bufSend:pointer;
MyPosition: Integer;
begin
inherited;
sRecv:=Socket.ReceiveText;
//------------------------------------
Case sRecv[1] of
MP_REFUSE:ShowMessage('Faint,be refused!');
//----------------------------------
MP_ACCEPT:begin
//iBYTEPERSEND是个常量,每次发送包的大小。
Socket.SendText(MP_FILEPROPERTY+IntToStr(Trunc(fsSend.
Size/iBYTEPERSEND)+1));
end;
//---------------------------------------
MP_NEXTWILLBEDATA:begin
If Not DataEnd then
Socket.SendText(MP_NEXTWILLBEDATA)
else
Socket.SendText(Mp_END);
end;
//-------------------------------------------
MP_DATA:begin
try
GetMem(bufSend,iBYTEPERSEND+1);
if (fsSend.
Position+1+iBYTEPERSEND) < fsSend.
Size then
begin
fsSend.
ReadBuffer(bufSend^,iBYTEPERSEND);
Socket.SendBuf(bufSend^,iBYTEPERSEND);
end//普通的发送,大小为iBYTEPERSEND
else
begin
MyPosition := fsSend.
Size-fsSend.
Position-1;
fsSend.
Read(bufSend^,fsSend.
Size-fsSend.
Position-1);
Socket.SendBuf(bufSend^,MyPosition);
Gauge1.Progress := Gauge1.Progress + 1;
fsSend.
Free;
dataend := True;
StatusBar1.Panels[1].Text := '数据传输结束!。。。';
end;
//最后一次发送,发送剩余的数据
finally
FreeMem(bufSend,iBYTEPERSEND+1);
If Gauge1.Progress < Gauge1.MaxValue then
Gauge1.Progress := Gauge1.Progress + 1
end{of try}
end;
//---------------------------------------------------
MP_ABORT:begin
//被取消了:(
fsSend.
Free;
end;
end;
end;

procedure TNetSendData_Form.FormCreate(Sender: TObject);
begin
inherited;
Memo1.Lines.Text := '';
edtIPAddress.Text := '';
With IpAdoTabledo
begin
Connection := Main_DataModule.Main_ADOConnection;
TableName := 'Ip';
If Not Active then
Active := True;
While Not Eofdo
begin
EdtIpAddress.Items.Add(FieldByName('ip').AsString);
Next;
end;
end;
end;

procedure TNetSendData_Form.BitBtn1Click(Sender: TObject);
begin
inherited;
Close;
end;

procedure TNetSendData_Form.SendDataLarge;
begin
end;

procedure TNetSendData_Form.CSLookup(Sender: TObject;
Socket: TCustomWinSocket);
begin
inherited;
Self.StatusBar1.Panels[1].Text := '正在试图与税务局服务器建立连接,请稍候.....!';
end;

procedure TNetSendData_Form.CSConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
inherited;
StatusBar1.Panels[1].Text := '连接税务局主机成功,准备发送数据!';
BtnConnect.Enabled := False;
end;

procedure TNetSendData_Form.CSDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
inherited;
StatusBar1.Panels[1].Text := '与服务器断开连接。。。!';
BtnConnect.Enabled := True;
end;

procedure TNetSendData_Form.CSError(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
inherited;
If ErrorEvent = eeConnect then
begin
StatusBar1.Panels[1].Text := '服务器忙,重新进行连接。。。!';
Cs.Active := False;
end;
if ErrorEvent = eeAccept then
begin
StatusBar1.Panels[1].Text := '1服务器忙,重新进行连接。。。!';
end;
If ErrorEvent = eeGeneral then
begin
StatusBar1.Panels[1].Text := '2服务器忙,重新进行连接。。。!';
end;
end;

function TNetSendData_Form.GetFileName(FileName: String): String;
Var
i: Integer;
begin
For i := Length(FileName)do
wnto 0do
begin
If FileName = '/' then
begin
Result := Copy(FileName,i+1,Length(FileName));
Break;
end;
end;
end;

end.
 
N

nexthawks

Unregistered / Unconfirmed
GUEST, unregistred user!

在客户端页面上是用的文件域,在服务器端是用的TWebBroker,传过去之后,TRequest下的File.Count读到为0,请问如何解决.客户端的网页下的代码如下,也就是HTML为:
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="a.dll/up"> //如 a.dll/up为所对应的操作
<p>
<input type="text" name="textfield">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form>
</body>
</html>
 
Z

zjhawks

Unregistered / Unconfirmed
GUEST, unregistred user!
我来拿分。
 
N

nexthawks

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
719
import
I
I
回复
0
查看
603
import
I
顶部