🚀 go-pugleaf

"Chris" <chris@privacy.com> wrote in message
news:46e974aa$1@newsgroups.borland.com...

> I already have the usernames and passwords stored and I
> just want to be able to pass them to the server "on-the-fly"
> without even seeing the login dialogue box.

Use the TIdHTTP's Request->Username and Request->Password properties, ie:

    {
        AnsiString fname = "C:\\JPGTest.jpg";

        TFileStream *image = new TFileStream(fname, fmCreate);
        try
        {
            IdHTTP1->Request->Username = "whatever";
            IdHTTP1->Request->Password = "whatever";
            IdHTTP1->Get("http://192.168.1.101/jpg/1/image.jpg", image);
        }
        __finally {
            delete image;
        }

        try {
            Image1->Picture->LoadFromFile(fname);
        }
        __finally {
            DeleteFile(fname);
        }
    }

Alternatively:

    {
        TMemoryStream *image = new TMemory;
        try
        {
            IdHTTP1->Request->Username = "whatever";
            IdHTTP1->Request->Password = "whatever";
            IdHTTP1->Get("http://192.168.1.101/jpg/1/image.jpg", image);
            image->Position = 0;

            TJPEGImage *jpg = new TJPEGImage;
            try
            {
                jpg->LoadFromStream(image);
                Image1->Picture->Assign(jpg);
            }
            __finally {
                delete jpg;
            }
        }
        __finally {
            delete image;
        }
    }


Gambit