이승리 wrote:

> 안녕하세요..

>

> 이미지 박스에 그림을 불러올려 합니다.. 하드에서 말고,

> 컴퓨터가 인터넷에 연결되어있다는 가정하에 웹에서 불러

> 오려구요. 그리고 프로그램 실행시마다 웹 주소에서 이미지를

> 한번씩 읽어오려합니다..

> 어떤식을 해야하는지 답변 부탁드립니다.



먼저 어느분의 답변을 빌어 답변 합니다..



NMHTTP 컴포넌트를 이용해서 따운을 받는 벙법 이더군요..



다음 따운로드가 완료 되면 그 이미지를 이미지 컨포넌트에 로드 하면 되겠죠..

var



Function GetHTTP(URL:String):String;

Begin

With TNMHTTP.Create(Nil) do

Try

InputFileMode:= False;

OutputFileMode:= False;

ReportLevel:= Status_Basic;

TimeOut:= 10000;

Get(URL);

Result:= Body;

Free;

Except

Free;

Result:= '';

End;

End;



Procedure SaveBinaryFile(ToFileName,Binary:String);

Var

Loop, iSize, iPos : Integer;

fUpload : File;

Buffer : Packed Array [1..1024] of Char;

Begin

Try

AssignFile(fUpload, ToFileName);

Rewrite(fUpload, 1);



iPos:= 0;

iSize:= Length(Binary);

While iSize >= 1024 do

Begin

For Loop:= 1 to 1024 do

Buffer[Loop]:= Binary[iPos+Loop];

BlockWrite(fUpload, Buffer, 1024);

iPos:= iPos + 1024;

iSize:= iSize - 1024;

End;



If iSize > 0 then

Begin

For Loop:= 1 to iSize do

Buffer[Loop]:= Binary[iPos+Loop];

BlockWrite(fUpload, Buffer, iSize);

End;



CloseFile(fUpload);

Except

End;

End;



Begin

SaveBinaryFile(String(GetWindowsDirectory(@AA[0], MAX_PATH)) + '/Temp/AA.Gif',

GetHTTP(http://www.shinhae.com/AA.GIF));



Image1.Picture.LoadFromFile(String(GetWindowsDirectory(@AA[0], MAX_PATH))

+ '/Temp/AA.Gif');

End;





뭐 대충 이런 식으로 하믄 될께 가튼데.....~~~