Application/Delphi Lecture126 indy idhttp 이용해서 파일 업로드 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.ContentType := UploadFile.RequestContentType; UploadFile.AddFormField('Mb_Num', '13'); UploadFile.AddFile('UploadList', OpenDialog1.FileN.. 2008. 7. 24. Post 방식으로 데이타 넘기기 여기 저기 찾다 Navigate2를 이용하는 것을 찾았습니다. 혹 다른분을 위해 소스를 올립니다. =================== uses ComObj; procedure TDlgRegisterPC.OnlineRegist(const AUID, AFlag: string); var WebBrowser1: Variant; WebAddr, VPostData, VFlags, VFrame, VHeaders: OleVariant; iLoop: Integer; PostData: string; begin PostData := 'UID=' + AUID + '&Flag=' + AFlag; WebBrowser1 := CreateOleObject('InternetExplorer.Application'); if Length(.. 2008. 7. 24. 웹상의 이미지 불러오기 uses IdURI, JPEG, IdHTTP ; procedure TForm1.Button1Click(Sender: TObject); var ImageURL: String; begin ImageURL := 'http://eventzone.hanafos.com/images/8spot_131x121.gif'; GetWebImage(ImageURL); end; procedure TForm1.GetWebImage(AImageURL: String); var ImageStream: TMemoryStream; URI: TidURI; ImagePath: String; JPI: TJPEGImage; HTTP: TIdHTTP; begin ImageStream := TMemoryStream.Create; HTTP := TI.. 2008. 7. 24. 전체 컨트롤 속성 변경 for i := 0 To ComponentCount - 1 do begin if Components[i] is TLabel Then TLabel(Components[i]).Visible := False; end; 2008. 7. 24. 이전 1 ··· 26 27 28 29 30 31 32 다음