본문 바로가기

Developist

Delphi/간단하게 간단하게 HTTP로 파일 업로드 하기 var ResponseStream: TStringStream; DataStream: TIdMultiPartFormDataStream; begin ResponseStream := TStringStream.Create('', TEncoding.UTF8); DataStream := TIdMultiPartFormDataStream.Create; try with TIdHTTP.Create(nil) do begin try DataStream.AddFormField('FileName', 'test'); //필드명, 값 추가 DataStream.AddFile('Data', '경로+파일명'); //필드명, 파일 추가 Request.ContentType := 'multipart'; Post( 'https://develop..
Delphi/꿀팁 [E-Mail] 첨부파일 다운로드 하기 - 5 TEmailInfo = record Index: Integer; UID: string; PartNumber: string; TransferEncoding: string; FileName: string; end; PEmailInfo = ^TEmailInfo; TAttachInfo = record Index: Integer; end; PAttachInfo = ^TAttachInfo; TForm1 = Class(TForm) .. lstMailBox: TListBox; lstMailList: TListView; lstAttachList: TListView; private public SelectMsg: TIdMessage; end; //lstAttachList의 OnDblClick 이벤트를 추가합니다. proc..
Delphi/꿀팁 [E-Mail] 메일 및 첨부파일 내용 가져오기 - 4 TEmailInfo = record Index: Integer; UID: string; PartNumber: string; TransferEncoding: string; FileName: string; end; PEmailInfo = ^TEmailInfo; TAttachInfo = record Index: Integer; end; PAttachInfo = ^TAttachInfo; TForm1 = Class(TForm) .. lstMailBox: TListBox; lstMailList: TListView; lstAttachList: TListView; private public SelectMsg: TIdMessage; end; //lstMailList의 OnSelectItem 이벤트를 추가합니다. proc..

티스토리툴바