현재 서버에 있는 그래픽파일을 다운로드한 후 Image1.Picture.LoadFromFile('c:\temp\a.jpg') 형식으로
보여주는데......
다운로드 않고 바로 Image1.Picture.LoadFromFile('http://www.abc.co.kr/image/a.jpg') 처럼
경로를 서버로 잡을 수 있는지요?
아니면 다른방법이 있으시면 도움바랍니다.
WebBrowser로 호출하면 전체화면이 나와서 조그많게 되지 않네요.
요것이 되면
MediaPlay1.FileName := 'http://www.abc.co.kr/image/b.mp3' 도 되지 않을까요?
procedure TForm1.GetWebImage(AImageURL: String);
var
ImageStream: TMemoryStream;
ImagePath: String;
JPI: TJPEGImage;
HTTP: TIdHTTP;
begin
ImageStream := TMemoryStream.Create;
HTTP := TIdHTTP.Create(Self);
try
HTTP.Get(AImageURL, ImageStream);
ImageStream.Position := 0;
JPI := TJPEGImage.Create;
try
JPI.LoadFromStream(ImageStream);
finally
Image1.Picture.Assign(JPI);
JPI.Free;
end;
finally
ImageStream.Free;
HTTP.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ImageURL: String;
begin
ImageURL := 'http://www.emker.com/d.JPG';
GetWebImage(ImageURL);
end;