delphiidhttp7 IdHTTP 한글 깨짐 IdHTTP 한글 깨짐 소스파일 자체의 인코딩도 UTF-8이고 페이지세팅도 UTF-8일 경우, 아래와 같은 형태로 가져오면 됨. function getURLContent(URL: String): String; var IdHTTP1: TIdHTTP; Stream: TBytesStream; begin Result:=''; Stream := TBytesStream.Create; IdHTTP1:=TIdHTTP.Create(nil); try IdHTTP1.Get(URL, Stream, []); Result:=TEncoding.UTF8.GetString(Stream.Bytes, 0, Stream.Size); finally FreeAndNil(IdHTTP1); FreeAndNil(Stream); end; end; 중.. 2022. 5. 17. 윈도우10 idhttp ssleay32.dll 에러 윈도우10 idhttp ssleay32.dll 에러 윈도우 10 이라 그런게 아니라 https:// 보안 프로토콜로 접속하시려면 ssl 라이브러리 모듈이 필요합니다 해당 모듈 2개를 프로그램과 같은 폴더에 놓으시고 항상 실행하셔야 됩니다. 델파이 2009 버전 설치 후 기본 프로젝트 생성 후 실행한다음 종료 후 아래 같은 메세지 오류가 나오면 bds.exe - bordbk105N.dll Assertion failure:"(!"SetThreadContext failed")" in ..\win32src\thread32.cpp at line 403 Continue execution? 다음과 같은 해결법으로 해결해보쟈! 1. Close Delphi 2. Locate bordbk120N.dll (C:\Progra.. 2022. 4. 20. idHTTP JSON Post 방법 idHTTP JSON Post 방법 토큰 키값이 존재 시 다음과 같이 처리한다. procedure TForm1.Button6Click(Sender: TObject); var URL, Retorno: String; JsonStreamRetorno, JsonStreamEnvio: TStringStream; begin URL := 'https://0000000000000t'; //UTF-8로 받는다 JsonStreamEnvio := TStringStream.Create(Memo2.Text,TEncoding.UTF8); JsonStreamRetorno := TStringStream.Create(''); // Init request: try idHttp.Request.Clear; idHttp.IOHandler :.. 2021. 12. 13. IdHTTP App ID, Key 존재시 IdHTTP App ID, Key 존재시 user System.JSON var s : String; JSON : TJSONObject; i : integer; rec_Data : TStringStream; Stream: TBytesStream; begin Stream := TBytesStream.Create; IdHTTP1.Request.CustomHeaders.Add('x-pharmsearch-app: 000000'); IdHTTP1.Request.CustomHeaders.Add('x-pharmsearch-key: 0000000'); IdHTTP1.Request.ContentType := 'application/json; charset=utf-8'; IdHTTP1.Request.ContentEncodi.. 2021. 12. 10. idhttp를 이용한 사이트 이미지 업로드 idhttp를 이용한 사이트 이미지 업로드 function IdHttpImgPost(URL:String;FormFieldName,FormFieldValue:array of STring; FormFieldCount : integer;FieldName,FileName,imgType:String): String; //user IdMultipartFormData; function GetHostNameFromURL(URL: String): String; var PosSlash: Integer; begin Result:=Trim(URL); Result:=MidStr(Result, Pos('://', Result)+3, Length(Result)); PosSlash:=Pos('/', Result); if PosSla.. 2021. 11. 22. indy idhttp 이용해서 파일 업로드 indy idhttp 이용해서 파일 업로드 IdMultipartFormData 을 uses절에 추가할것 ============================================== uses IdMultipartFormData; procedure TForm1.Button1Click(Sender: TObject); var UploadFile: TIdMultiPartFormDataStream; Outputs: TStringStream; begin if OpenDialog1.Execute then begin UploadFile := TIdMultiPartFormDataStream.Create; Outputs := TStringStream.Create(''); try IdHTTP.Request.Conten.. 2021. 11. 19. IdHTTP 이용하여 파일 다운로드 IdHTTP 이용하여 파일 다운로드 procedure 이미지파일_저장(웹경로, 로컬경로: String); var IdHTTP1: TIdHTTP; mStream: TMemoryStream; begin mStream:=TMemoryStream.Create; IdHTTP1:=TIdHTTP.Create; try // 1. 스트림으로 받아 IdHTTP1.Get(웹경로, mStream); // 2. 로컬디스크에 저장 mStream.SaveToFile(로컬경로); finally FreeAndNil(IdHTTP1); FreeAndNil(mStream); end; end; 2021. 11. 12. 이전 1 다음
