在 WebSnap 中如何实现文件上传？(100分)

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-09

• #1

请教高手，在 WebSnap 中如何实现文件上传？
在 TAdapter 中可以添加 AdapterFileField，此 Field 有个 OnUploadFiles 事件，但怎么才能触发这个事件呢？

 

H

homejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #2

去买本《delphi6开发人员手册》那里有一个例子

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #3

gz

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-15

• #4

出奇的简单!!
虽然 WebSnap 有许多问题，但在很多方面还是很出色的!

procedure TPageProducerPage1.AdapterActionUploadExecute(Sender: TObject;
Params: TStrings);
var
i:Integer;
BufferChar;
begin
with WebContext.Request do
begin
if Files.Count>0 then
begin
i:=Files.Items[0].Stream.Size;
GetMem(Buffer,i);
i:=Files.Items[0].Stream.Read(Buffer^,i);
FreeMem(Buffer);
end;
end;
end;

 

Z

ZergWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-16

• #5

huawdg你在干嘛，想给自己分啊。：）
有意思。看过你几篇大作，你对WEB SNAP很厉害啊，
我正在学习ing.....，我有1400多分，只求学习，不知道够不够，
能否指教一二。

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #6

大家互相探讨，共同提高。
只是可惜了我的100分。：)

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #7

多人接受答案了。