procedure TWebModule1.WebModule1ActionItem1(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var usernm,mail,url,city,previence,country:string;
memo:Tstringlist;
tst:string;
link:string;
hh:Tstringlist;
begin try
with ADOQ do
begin
usernm:=Request.QueryFields.Values['username'];
mail:=Request.QueryFields.Values['email'];
url:= Request.QueryFields.Values['url'];
city:=Request.QueryFields.Values['city'];
previence:=Request.QueryFields.Values['provience'];
country:=Request.QueryFields.Values['country'];
memo:=TStringlist.Create;
hh:= TStringlist.Create;
memo.Add(Request.QueryFields.Values['comments']);
ADOq.SQL.Clear;
tst:= 'insert into lyb values("'+usernm+'","'+mail+'","'+url+'","'+city+'","'+previence+'","'+country+'","'+memo.Strings[0]+'")';
ADOQ.SQL.Add(tst);
ADoq.ExecSQL;
pageproducer1.HTMLDoc.Clear;
hh.Clear;
hh.LoadFromFile('upper.txt');
pageproducer1.HTMLDoc.AddStrings(hh);
if url<>'http://' then link:=' <a href='+url+'>'+url+'</a>';
pageproducer1.HTMLDoc.Add(usernm+' '+previence+city+'.'+country+' <a href=mailto:"'+mail+'">'+mail+'</a>'+link+'<hr> <p>'+memo.Strings[0]+'</p><hr> ');
hh.Clear;
hh.LoadFromFile('down.txt');
pageproducer1.HTMLDoc.AddStrings(hh);
response.Content:=pageproducer1.Content;
ADOQ.Active:=false; end;
except
on E:Exception do
Response.Content:='<p>保存记录失败,错误是:'+E.Message;
end;
end;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var usernm,mail,url,city,previence,country:string;
memo:Tstringlist;
tst:string;
link:string;
hh:Tstringlist;
begin try
with ADOQ do
begin
usernm:=Request.QueryFields.Values['username'];
mail:=Request.QueryFields.Values['email'];
url:= Request.QueryFields.Values['url'];
city:=Request.QueryFields.Values['city'];
previence:=Request.QueryFields.Values['provience'];
country:=Request.QueryFields.Values['country'];
memo:=TStringlist.Create;
hh:= TStringlist.Create;
memo.Add(Request.QueryFields.Values['comments']);
ADOq.SQL.Clear;
tst:= 'insert into lyb values("'+usernm+'","'+mail+'","'+url+'","'+city+'","'+previence+'","'+country+'","'+memo.Strings[0]+'")';
ADOQ.SQL.Add(tst);
ADoq.ExecSQL;
pageproducer1.HTMLDoc.Clear;
hh.Clear;
hh.LoadFromFile('upper.txt');
pageproducer1.HTMLDoc.AddStrings(hh);
if url<>'http://' then link:=' <a href='+url+'>'+url+'</a>';
pageproducer1.HTMLDoc.Add(usernm+' '+previence+city+'.'+country+' <a href=mailto:"'+mail+'">'+mail+'</a>'+link+'<hr> <p>'+memo.Strings[0]+'</p><hr> ');
hh.Clear;
hh.LoadFromFile('down.txt');
pageproducer1.HTMLDoc.AddStrings(hh);
response.Content:=pageproducer1.Content;
ADOQ.Active:=false; end;
except
on E:Exception do
Response.Content:='<p>保存记录失败,错误是:'+E.Message;
end;
end;
解决方案 »
- 闲来无事提个问题
- 開開心過端午節(2)!! (liangpei2008 搶不到SF沒分,哈哈)
- ComboBox1.items.clear 后 text 里的光标自动移动到最前面?怪哉
- 窗口过程的参数
- SendMessage(tempHandle,WM_CLOSE,0,0); 这句关不掉QQ,是为什么?谢谢!!
- 哪位大哥有空帮小弟把下列几段VC++代码转为Delphi代码,500分酬谢。
- 函数怎样有多个返回值?
- 用idhttp.post 取得網頁的原始碼?
- ImageTQ.Picture.LoadFromFile('E:\wuyuanhai\detector\bmp\duoyun.bmp');这里指的是绝对路径,能不能指定一个相对路径,以方便软件在不同
- 在程序中如何屏蔽win98的任务栏?
- 怎么样给别人分啊——在线等待!!!
- 关于socket的问题
JPeg:TJPegImage;
begin
JPeg := TJPegImage.Create;
With Table1 do
Begin
Try
If JPegOpenPictureDialog.Execute Then
Begin Jpeg.LoadFromFile(JPegOpenPictureDialog.FileName);
Edit;
FieldByName('FieldForPhoto').Assign(JPeg);
Post;
End;
Except
ShowMessage('无法打开该图像文件!');
End;
End;
Jpeg.Free;
miShowJPeg.Click;
inherited;
end;图片读取:
Var
Jpeg: TJPegImage;
BlobStream:TStream;
begin
JPeg := TJPegImage.Create;
Try
Begin
BlobStream := MusterDm.MusterTable.
CreateBlobStream(Table1.FieldByName('FieldForPhoto'),bmRead);
Image1.Picture.Assign(nil);
If BlobStream.Size <= 0 Then Exit;
JPeg.LoadFromStream(BlobStream);
Image1.Picture.Assign(JPeg);
End;
Except End;
inherited;
JPeg.Free;
end;