Data between two web form


2003-09-08 09:56:13 PM
delphi184
Hello !
I use Delphi 7 and Intra Web enviroment. Which is the best way pass data
between two web forms safety and efficiently ?
Here is code below, where parameter "ImgNro" (also link.caption) should be
pass form first form to other form using "procedure
TIWForm1.MaaritaKuvaClick(Sender: TObject)" and then read there to use in
other form. How
can I code these thinks ?
procedure TIWForm1.IWComboBox2Change(Sender: TObject);
var ImgTxt, ImgNro: String;
begin
ComboTxt:= IWComboBox2.Items.Strings[IWComboBox2.ItemIndex];
ComboTxt:= ''''+ComboTxt[1]+ComboTxt[2]+ComboTxt[3]+'''';
ADOQuery2.Active:= false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from Art where PicGroupNum = '+ComboTxt);
ADOQuery2.Active:= true;
IWLabel1.Caption:= IWComboBox1.Items.Strings[IWComboBox1.ItemIndex];
IWLabel5.Caption:= IWComboBox2.Items.Strings[IWComboBox2.ItemIndex];
IWGrid1.RowCount:= ADOQuery2.RecordCount+1;
while not ADOQuery2.Eof do
begin
link:= TIWLink.Create(Self);
ImgNro:= IntToStr(ADOQuery2.FieldByName('PicIndexNum').AsInteger);
link.Caption:= ImgNro;
IWGrid1.Cell[ADOQuery2.RecNo,0].Alignment:= (taCenter);
ImgTxt:= '<img src="C:\Inetpub\wwwroot\mywebsite\Kuvat_gif';
ImgTxt:= ImgTxt+ ADOQuery2.FieldByName('PicWwwAdd').AsString+'">';
ImgTxt:= ImgTxt+ '<br>Nimi: <i><font
color="red">'+ADOQuery2.FieldByName('PicTitle').AsString+'</font></i>';
ImgTxt:= ImgTxt+ ' ja Numero: ';
link.OnClick:= MaaritaKuvaClick;
IWGrid1.Cell[ADOQuery2.RecNo,0].Text:= ImgTxt;
IWGrid1.Cell[ADOQuery2.RecNo,0].Control:= link;
ADOQuery2.Next;
end;
end;
procedure TIWForm1.MaaritaKuvaClick(Sender: TObject);
begin
MaaritaKuva:= TMaaritaKuva.Create(WebApplication);
MaaritaKuva.Show;
end;
Does anybody know, is there any good book which can quide using Intra Web ?
Thanks a lot
Erkki