We help IT Professionals succeed at work.

How to include?

306 Views
Last Modified: 2013-11-18
I'am using CGI App and using a Page Prducer Component to be linked with my Html Pages,the Pb is how to include Delphi Code with Html code,for e.g i tried to place an html code in:
PageProducer.HtmlDoc.Text and i want to the Response to be:

Response.content:=PageProducer.HtmlDoc.Text;
i found that i need to call:
Response.Cookies to be displayed?????
i think u got it?????
so what is the Mechanism!
Regards
Meer
Comment
Watch Question

CERTIFIED EXPERT

Commented:
You have to call:

Response.Content := PageProducer.Content;

Alex

Author

Commented:
Adjusted points from 50 to 100

Author

Commented:
hi simonet,
sorry for delay in replying,
i'am using Table Producer component,
i want to display my table with specific or custom characteristics of display:
such as a hyper link appear in specific coloumn,or in the footer to display
a variable string.
thanks .
Regards Meer.a.a

Author

Commented:
hi simonet,
sorry for delay in replying,
i'am using Table Producer component,
i want to display my table with specific or custom characteristics of display:
such as a hyper link appear in specific coloumn,or in the footer to display
a variable string.
thanks .
Regards Meer.a.a

Commented:
I would have thought you can use the OnGetText event handler of the appropriate TField to solve this.
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
hi geo,
if i want the following string to appear at the footer of my table what should i do:
Request.CookieFields.values['login'];
and i'am using (DatasetTableProducer)?
Thanks.
Regards
Meer

Author

Commented:
hi geo,
if i want the following string to appear at the footer of my table what should i do:
Request.CookieFields.values['login'];
and i'am using (DatasetTableProducer)?
Thanks.
Regards
Meer

Author

Commented:
hi geo,
if i want the following string to appear at the footer of my table what should i do:
Request.CookieFields.values['login'];
and i'am using (DatasetTableProducer)?
Thanks.
Regards
Meer

Author

Commented:
sorry for repitition miss control happened.
waiting for u:-)

Author

Commented:
sorry for repitition miss control happened.
waiting for u:-)

Commented:
Hi Meer,

I'm talking about DataSetTableProducer too. This is the same using QueryTableProducer. The source is different only (Query instead of Table).

....
{ Clear the previous footer if any }
DataSetTableProducer1.Footer.Clear;
{ Add a string to the footer }
DataSetTableProducer1.Footer.Add(Request.CookieFields.Values['login']);
....

The footer is a set of HTML commands.
If the response HTML page contains the table only it is a good idea to place HTML header commands in the TableProducer header and closing HTML tags in the TableProducer footer. For example:
-------
  DataSetTableProducer1.Header.Clear;
  DataSetTableProducer1.Header.Add('<HTML><HEAD><TITLE>');
  DataSetTableProducer1.Header.Add('This is the page title string');
  DataSetTableProducer1.Header.Add('</TITLE></HEAD>');
  DataSetTableProducer1.Header.Add('<BODY>');

  DataSetTableProducer1.Footer.Clear;
  DataSetTableProducer1.Footer.Add('<HR><STRONG>' + Request.CookieFields.Values['login'] + '</STRONG>');
  DataSetTableProducer1.Footer.Add('</BODY></HTML>');
  { Call the TableProducer' Content method which activates generating of the header, table and footer HTML representation }
Response.Content := DataSetTableProducer1.Content;
--------

Regards, Geo

Author

Commented:
thanks geo,it works.
i need ur help in the last step in my App,sending Email using SMTP component what do u think???,but i know what u r thinking the points isn't it?,no pb
waiting for ur answere!
thank.
Regards Meer

Commented:
Hi Meer,
Do not think that way about me ;)

Actually I've never used SMTP before.
And I'm not sure is it possible to use it in CGI program.

I promise I'll think how you can send e-mails and I'll post a comment here. Give me little time for that.

Regards, Geo

Author

Commented:
Hi Geo,
i'am waiting either here or this is my e-mail:mirabd@yahoo.com.
thanks.
pls keep in mind that i'am in hurry:-),and don't forget that u promised me.
Regards Meer.

Commented:
Hi Meer,

The easiest way to generate mail is to use TNMSMTP component.

{ in web action item }
var
 mail : TNMSMTP;
begin
  ...
  { your mail server data }
  mail:=TNMSMTP.create(self); //or just place it on the form
  Mail.Host:='MailServerName';
  Mail.Port:=25;
  { message header }
  Mail.UserID:='Your name';
  Mail.PostMessage.FromAddress:='Your mail address';
  Mail.PostMessage.FromName:='Your name';
  Mail.PostMessage.ToAddress.Clear;
  Mail.PostMessage.ToAddress.Add('E-mail address');
  Mail.PostMessage.Subject:='Some text';
  { file attachements if any }
  Mail.PostMessage.Attachments.Clear;
  Mail.PostMessage.Attachments.Add('a file name');
  { message text }
  Mail.PostMessage.Body.Clear;
  Mail.PostMessage.Body.Add('E-mail body - text');
  ...
  { sending prepared message }
  Mail.Connect;
  Mail.SendMail;
  Mail.Disconnect;
  Mail.Free;
  ...
end;

Regards, Geo

Author

Commented:
Hi Geo,
give me a chance to test it and i will confirm u.
thanks.
Regards Meer

Author

Commented:
Hi Geo,
give me a chance to test it and i will confirm u.
thanks.
Regards Meer

Author

Commented:
hi geo,
i'am using our university proxy server do u mean i should replace its host or its ip address(....) at:
mail.host,and its port no(80) at:
mail.port,this above Ques because of the exception i recieved:connection failed.
Thanks.
Regard meer

Commented:
Hi Meer,
No, I don't think so. You are connecting to your mail server to send mail not to proxy. You can find these settings somewhere in your mail client program (Outlook Express or what you are using).
Regards, Geo

Author

Commented:
hi geo,sorry for delay as i was in a vecation and now i'am back,
we don't have an email server in our university so u think that i can't use the SMTP component in sending mail if not with what u advice me.
Thanks
Regards Meer.

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.