○ 자료 조회 예시 - GTS 고층자료 http://203.247.66.28/url/gts_temp1.php?tm=200912141200&stn_id=47122& authKey= 사용자 인증키 조회 시각 지점번호 tm, stn_id 등 변수 값을 url에 입력하여 값 조회 제공가능 URL과 변수정보는 URL-API 외부서비스 페이지의 각 메뉴별로 표현되어 있음.
○ 프로그램 내에서 URL-API 활용 예시 PROGRAM URL_TEST C C URL OPEN/READ 테스트 프로그램 CHARACTER*128 URL CHARACTER*1024 BUF INTEGER RET, LEN URL = 'http://203.247.66.28/url/gts_temp1.php?tm=200912141200&stn_id=47122&authKey=사용자 인증키' CALL URLOPEN(RET, URL) IF (RET.EQ.0) THEN WRITE(6,*) 'ERROR : CAN NOT OPEN URL' GOTO 90 END IF DO LEN = 1024 CALL URLREAD(MODE, BUF, LEN) IF (LEN.LE.0) EXIT WRITE(6,*) BUF(1:LEN-1) END DO 90 CALL URLCLOSE STOP END
INCLUDEDIRS=-I. -I/usr/local/include -I$(home)src/include LIBDIRS=-L. -L/usr/local/lib url_test1: url_test1.c url_io.c cc $(INCLUDEDIRS) -o url_test1 url_test1.c url_io.c $(LIBDIRS) -lcurl url_test2: url_test2.f url_io.c cc $(INCLUDEDIRS) -c url_io.c $(LIBDIRS) -lcurl cc $(INCLUDEDIRS) -c url_fort.c $(LIBDIRS) - lcurl g77 $(INCLUDEDIRS) -o url_test2 url_test2.f url_io.o url_fort.o $(LIBDIRS) -lcurl
CHARACTER*128 URL CHARACTER MODE CHARACTER*1024 BUF INTEGER RET, LEN URL = 'http://203.247.66.28/url/gts_temp1.php?tm=200912141200&stn_id=47122&authKey=사용자 인증키' MODE = ‘A’ CALL URLOPEN(RET, URL) DO LEN = 1024 CALL URLREAD(MODE, BUF, LEN) IF (LEN.LE.0) EXIT WRITE(6,*) BUF(1:LEN-1) END DO CALL URLCLOSE STOP END cc -c url_io.c -lcurl cc -c url_fort.c -lcurl g77 -o url_test2 url_test2.f url_io.o url_fort.o -lcurl