Segue pergunta anterior:
Pergunta Anterior sobre o mesmo assunto.
Agora o que ele está mostrando é:
http/1.1 404 Not Found.
Código utilizado:
Funcional em VCL:
function TForm1.UploadArquivo(server, script, caminhoarq : string) : boolean;
var
Response, UploadURL : String;
HTTPClient : TIdHTTP;
Lista : TIdMultiPartFormDataStream;
begin
result := False;
UploadURL := server + script;
HTTPClient := TIdHTTP.Create;
Lista := TIdMultiPartFormDataStream.Create;
HTTPClient.ReadTimeout := 10000;
HTTPClient.ProtocolVersion := pv1_1;
HTTPClient.Request.ContentType := 'utf-8';
HTTPClient.Request.UserAgent := 'Mozilla/3.0 (compatible;Indy Library)';
HTTPClient.HTTPOptions := [hoForceEncodeParams,hoKeepOrigProtocol];
Response := '';
try
try
//Lista.Add('Arquivo='+ caminhoarq);
Lista.AddFile('Arquivo', caminhoarq, 'application/octet-stream');
Response := UTF8Decode(Trim(HTTPClient.Post(UploadURL, Lista)));
//Label1.Text := Response;
if Response = 'OK' then
Result := true;
except
on e : exception do ShowMessage('Erro ao enviar arquivo ao servidor! Detalhes: '+e.Message);
end;
finally
Lista.Free;
HTTPClient.free;
end;
end;
Porém, o site existe, e verifiquei a string varias vezes, e mesmo assim, ele fica apresentando esta mensagem.
Agora estou testando em firemonkey, o mesmo código, pois acredito que não tenha mudado muita coisa, ou até mesmo nada.
Alguém tem ideia do que está ocorrendo?
------------------EDIT-----------------------
De acordo com os debugs que andei realizando, segue os comentários:
Nesta linha, o código para:
Response := UTF8Decode(Trim(HTTPClient.Post(UploadURL, Lista)));
Então fui mais a fundo. Na função DoRequest
.
Ao tentar conectar com o Host, na função CheckAndConnect
, que está situado dentro da função ConnectToHost
ele retorna o erro 404 situado no Response
.
Porém quando tento realizar o mesmo procedimento em um formulário em VCL. Ele funciona perfeitamente.