Re: [twsocket] Local network folder with THttpAppServ?
Hi,
the problem is: I don't know how to generate the links fort hese documents.
What I've done:
1) Setting the DocDir (C:\httpdocs) and the TemplateDir (C:\httptemplates) of
the webserver
2) Adding some allowed path's:
webserver.AddGetAllowedPath('/', afBeginBy);
webserver.AddGetAllowedPath('/js/', afBeginBy);
webserver.AddGetAllowedPath('/images/', afBeginBy);
- Here is no problem with generating links (relative paths) -
3) How to add and link documents that are stored somewhere else on the network?
I tried webserver.AddGetAllowedPath('Q:\test\web\Dokumente\KI', afBeginBy);
Best regards ...
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
[twsocket] Local network folder with THttpAppServ?
Hi, is it possible to use a local network folder with THttpAppServ? How did I have to set the path in my application? Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] Local network folder with THttpAppServ?
Hi, no, I mean an additional folder with (pdf)-documents for a download. Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
[twsocket] Problem with UTF8 and Thttpappserv
Hi,
i got a big problem using the Thttpappserv component. My html-sites are UTF8
but german html-entities (üäö) are not displayed correct (data form database).
I've installed the latest snapshot of ics. Here is some codefor the main page:
procedure TUrlHandlerIndex.Execute;
var
order,
reval,
search,
Headers : String;
begin
ExtractURLEncodedValue(Params, 'key', search);
ExtractURLEncodedValue(Params, 'order', order);
if search '' then
begin
if order = '' then order := 'number';
reval := data.doSearch(search,order);
Headers := NO_CACHE;
AnswerPage('', Headers, '/index.html', nil, ['applicationName',
applicationName,'table',reval]);
end
else
begin
Headers := NO_CACHE;
AnswerPage('', Headers, '/index.html', nil, ['applicationName',
applicationName,'table',reval]);
end;
Finish;
end;
What to do?
Best regards,
Stefan
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
Re: [twsocket] Problem with UTF8 and Thttpappserv
Hi, sorry, I use D2010. Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] Problem with UTF8 and Thttpappserv
Hi Arno, yeees great, That works. I've tried with different languages (polish,german ...) and it is ok, but one question left: for what are the 2 parameters (FileCodepage/DstCodepage)? Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] Problem with UTF8 and Thttpappserv
AH ok. Thanks for your answer. Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] Problems sending multiple E-Mails
Hi,
I got now the message SMTP component not connected after sending ca.
380 Mails. Where can I handle the connection? Because I do an
smtp.connect on every mail?!
Best regards,
Stefan
2010/7/7 Arno Garrels arno.garr...@gmx.de:
Stefan Göppert wrote:
What do you mean with ...post a
custom message and from its handler call sendMail. ?
For example (untested):
const
WM_SEND_DELAYED = WM_USER + 1;
[..]
type
TForm1 = class(TForm)
protected
procedure WmSendMailDelayed(var Msg: TMessage); message WM_SEND_DELAYED;
[..]
implemtation
procedure TForm1.WmSendMailDelayed(var Msg: TMessage);
begin
if Msg.WParam -1 then
sendMail
else
ShowMessage('Done');
end;
Use it like:
PostMessage(Form1.Handle, WM_SEND_DELAYED, whereIam, 0);
--
Arno Garrels
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
Re: [twsocket] Problems sending multiple E-Mails
Hi,
and thanks for your fast reply. What do you mean with ...post a
custom message and from its handler call sendMail. ?
Best regards,
Stefan
2010/7/7 Arno Garrels arno.garr...@gmx.de:
Stefan Göppert wrote:
Hi,
I try to send multiple E-Mails (single Mails, one after another).
After a while (mostly if 380 E-Mails where send) I get an SMTP
component not ready error. What can I do in this case?
Here some code:
[..]
smtpQuit : begin
[..]
sleep(500);
Do not call sleep, it's useless.
if whereIam -1 then
sendMail(whereIam)
Do not call sendMail here, instead post a custom message and
from its handler call sendMail. In sendMail check whether
the connection is closed, or handle event OnSessionClosed
as well.
else
ShowMessage('ok');
Do not call ShowMessage() from event handler, it processes
messages which could lead to reentrance into the handler or to
other unwanted results.
--
Arno Garrels
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
[twsocket] Add dynamic document as defaultdoc in ThttpAppServ
Hi, is it possible to us a dynamic html template document as the defaultdoc in ThttpAppServ? Best regards, Stefan -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
