Download presentation
Presentation is loading. Please wait.
1
○ 자료 조회 예시 - GTS 고층자료 authKey= 사용자 인증키 조회 시각 지점번호 tm, stn_id 등 변수 값을 url에 입력하여 값 조회 제공가능 URL과 변수정보는 URL-API 외부서비스 페이지의 각 메뉴별로 표현되어 있음.
2
○ 프로그램 내에서 URL-API 활용 예시 PROGRAM URL_TEST C C URL OPEN/READ 테스트 프로그램
CHARACTER* URL CHARACTER* BUF INTEGER RET, LEN URL = ' 인증키' 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
3
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
4
CHARACTER* URL CHARACTER MODE CHARACTER* BUF INTEGER RET, LEN URL = ' 인증키' 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
Similar presentations
