델5에서 이미지 화일을 perl 로 전송하고 싶은데...
계속 에러가 나네요...고수님들 도와주세요..
구현한 소스는 아래와 같고...
마지막 post 시 text is not integer value ....라고 에러가 납니다...
혹시 IdHttp 컴포너트에 Request.accept properties를 수정해야 할까요..
기본값에 text/html, */* 가 들어 있거든요.....
GetSystemDirectory(windir, SizeOf(windir));
MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
ResponseStream := TMemoryStream.Create;
try
IdHttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;
MultiPartFormDataStream.AddFormField('memberid', 'KSY');
MultiPartFormDataStream.AddFormField('siteid', 'KSY');
MultiPartFormDataStream.AddFormField('rfid', '12345678');
MultiPartFormDataStream.AddFormField('checkdate', '20030625');
MultiPartFormDataStream.AddFormField('checktime', '20030625010101');
MultiPartFormDataStream.AddFile('image', windir+'bedata 93559.jpg' ,'application/octet-stream');
MultiPartFormDataStream.PrepareStreamForDispatch;
MultiPartFormDataStream.Position := 0;
IdHTTP1.Post('http://211.x.x.x/perl/incheck.pl', MultiPartFormDataStream, ResponseStream);