🚀 go-pugleaf

"Denville Longhurst" <Denville@metco.co.uk> wrote in message
news:43dff36a@newsgroups.borland.com...

> OK, here is a simple, working form that illustrates what I
> want to achieve from a BCB application using Indy
> (TIdHTTP v 8.0.25)

That is a VERY VERY old version of Indy.  Indy 8 is no longer supported by
Indy's developers (including me).  You should upgrade to at least the latest
Indy 9.0.50 snapshot.

Under Indy 9 (and 10), the code would be one of the following, depending on
whether the script expects data to be posted using the "multipart/form-data"
encoding or not:

1)

    TStringList *Values = new TStringList;
    try
    {
        Values->Add("recipient=fpl@metco.co.uk");
        Values->Add("env_report=REMOTE_HOST,REMOTE_ADDR,HTTP_USER_AGENT");
        Values->Add("print_config=email,realname,subject");
        Values->Add("sort=order:message");
        Values->Add("print_blank_fields=1");

Values->Add("redirect=http://www.metco.co.uk/MyTemp/FplWeback1.htm");
        Values->Add("email=a.pilot@metco.co.uk");
        Values->Add("MyName=Denville");
        Values->Add("MyTown=Leeds, England");
        Values->Add("Submit=Submit");
        Memo1->Text =
IdHTTP1->Post("http://cgi.uk2.net/cgi-bin/uk2-formmail.pl", Values);
    }
    __finally {
        deleteValues;
    }

2)

    #include "IdMultipartFormData.hpp"

    TIdMultipartFormDataStream *Values = new TIdMultipartFormDataStream;
    try
    {
        Values->AddFormField("recipient", "fpl@metco.co.uk");
        Values->AddFormField("env_report",
"REMOTE_HOST,REMOTE_ADDR,HTTP_USER_AGENT");
        Values->AddFormField("print_config", "email,realname,subject");
        Values->AddFormField("sort", "order:message");
        Values->AddFormField("print_blank_fields", "1");
        Values->AddFormField("redirect",
"http://www.metco.co.uk/MyTemp/FplWeback1.htm");
        Values->AddFormField("email", "a.pilot@metco.co.uk");
        Values->AddFormField("MyName", "Denville");
        Values->AddFormField("MyTown", "Leeds, England");
        Values->AddFormField("Submit", "Submit");
        Memo1->Text =
IdHTTP1->Post("http://cgi.uk2.net/cgi-bin/uk2-formmail.pl", Values);
    }
    __finally {
        deleteValues;
    }


Gambit