Solved

ActiveX Form

Posted on 2000-03-17
4
239 Views
Last Modified: 2010-04-04
Hi all experts,

I am writing an server application that runs on web server. If a client runs this application by using web browser, I would like to know the way to load picture(at server side) to some picture components.

Here is my code:

Picture1.Picture.LoadFormFile("http://myserver/somepic.jpg")

Thanks in advance,
Peerapol
0
Comment
Question by:Mr_Peerapol
  • 2
  • 2
4 Comments
 
LVL 17

Expert Comment

by:inthe
ID: 2627616
hi,
someone made this one day,it works very well:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons,ExtCtrls,wininet,jpeg;

type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Image1: TImage;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function GetNet( strURL: String ): String;
const
bufSiz = 512;
var
aHI, aHURL: HINTERNET;
buf: string;
s: string;
bytesRead: cardinal; {for d3 use integer}
aBool: boolean;
begin
Screen.cursor := crHourglass;
try
ahI := InternetOpen('CGITEST', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_MAKE_PERSISTENT);
if (aHI = nil) then exit;
aHURL := InternetOpenURL(aHI, PChar(strURL), nil, 0,
INTERNET_FLAG_EXISTING_CONNECT or
INTERNET_FLAG_MAKE_PERSISTENT, 0);
if (aHURL = nil) then exit;
s := '';
repeat
buf := '';
SetLength(buf, bufSiz);
aBool := InternetReadFile(aHURL, PChar(buf), bufSiz, bytesRead);
SetLength(buf, bytesRead);
if (aBool and (bytesRead <> 0)) then
s := s + buf;
until (aBool and (bytesRead = 0)) or (not aBool);
Result := s;
InternetCloseHandle(aHURL);
InternetCloseHandle(aHI);
finally
Screen.cursor := crDefault;
end;
end;

procedure GetJpeg( AImage: TImage; Url: String );
var
Stream: TStringStream;
Image: TJPEGImage;
s: string;
i: Integer;
begin
s := GetNet( Url );
Stream := TStringStream.Create(s);
Image := TJPEGImage.create;
Image.LoadFromStream(Stream);
AImage.picture.Assign(Image);
Image.Free;
Stream.Free;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Getjpeg(Image1,'http://www.experts-exchange.com/images/eelogosmall.jpg');
end;

end.


Regards Barry
0
 
LVL 25

Author Comment

by:Mr_Peerapol
ID: 2628522
Barry,

If i use TImage, it woks well like you told me. But now I am using TImgEdit, do you know a way to load image?

Anyway, if you don't know it. I still accept your above answer later because I didn't specify the image component, I am using, in my question.

Thank you anyway,
Peerapol

0
 
LVL 17

Accepted Solution

by:
inthe earned 50 total points
ID: 2630114
sorry i do not have this TImgEdit ..
0
 
LVL 25

Author Comment

by:Mr_Peerapol
ID: 2630541
That's okay.

Thanks,
Peerapol
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Delivering innovative fully-managed cloud services for mission-critical applications requires expertise in multiple areas plus vision and commitment. Meet a few of the people behind the quality services of Concerto.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now