-------------생략------------------
//////버턴을 클릭하여 dll파일에 있는 그림을 구현/////
procedure TForm1.Button1Click(Sender: TObject);
//var
//LibHandle:THandle;
begin
i:=i+1;
if (i<1) or (i>18) then
begin
i:=1;
end;
begin
case i of
1:begin
LibHandle:=LoadLibrary('gifdll.dll');
GIFImage1.LoadFromResourceName(LibHandle, 'pic1');
end;
2:begin
LibHandle:=LoadLibrary('gifdll.dll');
GIFImage1.LoadFromResourceName(LibHandle, 'pic2');
end;
3:begin
LibHandle:=LoadLibrary('gifdll.dll');
GIFImage1.LoadFromResourceName(LibHandle, 'pic3');
end;
------------생략-------------------
여기서 질문입니다.
질문1)
버턴1로 pic2 .... pic15 그림을 호출하여 보다가 버턴2를 클릭하여 바로 앞에 보았던
그림을 호출하려는데 어렵습니다. 즉 pic8을 보다가 버턴2를 클릭하여 바로 앞의
그림인 pic7을 호출하려고 합니다.
어떻게 하면 바로 앞의 그림으로 돌아갈 수 있습니까?
질문2)
미디(MID)화일을 DLL로 만들 수가 없네요
RC 파일 내에 SOUND MID "1.MID" 혹은 SOUND DIDI "1.MID"을
BRC32 -R SORI.RC 로 컴파일 시키면 에러 메세지가 나오고 RES 파일이 생성되지
않습니다. WAV 파일은 DLL파일로 생성되는데. MID파일은 생성되지 않는지요
생성시키는 방법은 무엇인지 알려주세요..
질문만 하고 가는 뻔뻔스러운 하수였습니다.
>
.....................................
앞으로 가기
................................................
inc(i);
if (i < 1) or (i > 18) then
i := 1;
LibHandle:=LoadLibrary(gifdll.dll');
try
GIFImage1.LoadFromResourceName(LibHandle, 'pic' +IntToStr(i));
finally
FreeLibrary(LibHandle);
end;
......................................................................
바로앞으로 가기
...........................................
dec(i);
if (i < 1) or (i > 18) then
i := 1;
LibHandle:=LoadLibrary('/cai/imagedll/cambodia.dll');
try
GIFImage1.LoadFromResourceName(LibHandle, 'pic' +IntToStr(i));
finally
FreeLibrary(LibHandle);
end;
> -------------생략------------------
> //////버턴을 클릭하여 dll파일에 있는 그림을 구현/////
>
> procedure TForm1.Button1Click(Sender: TObject);
> //var
> //LibHandle:THandle;
> begin
> i:=i+1;
> if (i<1) or (i>18) then
> begin
> i:=1;
> end;
> begin
> case i of
> 1:begin
> LibHandle:=LoadLibrary('gifdll.dll');
> GIFImage1.LoadFromResourceName(LibHandle, 'pic1');
> end;
> 2:begin
> LibHandle:=LoadLibrary('gifdll.dll');
> GIFImage1.LoadFromResourceName(LibHandle, 'pic2');
> end;
> 3:begin
> LibHandle:=LoadLibrary('gifdll.dll');
> GIFImage1.LoadFromResourceName(LibHandle, 'pic3');
> end;
>
> ------------생략-------------------
>
> 여기서 질문입니다.
> 질문1)
> 버턴1로 pic2 .... pic15 그림을 호출하여 보다가 버턴2를 클릭하여 바로 앞에 보았던
> 그림을 호출하려는데 어렵습니다. 즉 pic8을 보다가 버턴2를 클릭하여 바로 앞의
> 그림인 pic7을 호출하려고 합니다.
> 어떻게 하면 바로 앞의 그림으로 돌아갈 수 있습니까?
>
> 질문2)
> 미디(MID)화일을 DLL로 만들 수가 없네요
> RC 파일 내에 SOUND MID "1.MID" 혹은 SOUND DIDI "1.MID"을
> BRC32 -R SORI.RC 로 컴파일 시키면 에러 메세지가 나오고 RES 파일이 생성되지
> 않습니다. WAV 파일은 DLL파일로 생성되는데. MID파일은 생성되지 않는지요
> 생성시키는 방법은 무엇인지 알려주세요..
>
> 질문만 하고 가는 뻔뻔스러운 하수였습니다.