var
Source: TMemoryStream;
Response: TStringStream;
begin
HTTP.Request.ContentType := 'Content-Type: application/x-www-form-urlencoded';
HTTP.InterceptEnabled := true;
Response := TStringStream.Create('');
try
Source := TMemoryStream.Create;
try
Source.LoadFromFile('d:testtest.jpg');
HTTP.Post('http://192.168.1.109/Upload_ok.asp', Source, Response);
finally
Source.Free;
end;
memoHTML.Lines.Text := Response.DataString;
finally
Response.Free;
end;
end;
idHTTP 로 파일을 전송하는 방법입니다.
데모소스에 있는건데
문제는 이걸 어떻게 받을지 방법을 잘 모르겠네요
혹시 아시면 조언 부탁합니다.
그럼 이만
MemStream := TMemoryStream.Create;
try
HTTP.Get('http://192.168.1.109/test.jpg', MemStream);
MemStream.SaveToFile('c:test.jpg');
finally
MemStream.Free;
end;