3

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.

15
  • Poste os códigos pra gente ver! Commented 21/11/2015 às 14:15
  • São esses que estão no link!
    – Ramon Ruan
    Commented 21/11/2015 às 14:27
  • Boa tarde Ramon, recomendo que faça titulos intuitivos, o titulo das duas perguntas é praticamente igual e não remete ao problema da questão.
    – Syzoth
    Commented 21/11/2015 às 15:25
  • @GuilhermeNascimento, Boa tarde! Acho que foi esse o ponto, pois tudo é igual quando fiz para VCL, o que muda é que o erro anterior está Resolvido, e o de agora apresenta somente no FIREMONKEY.
    – Ramon Ruan
    Commented 21/11/2015 às 19:29
  • @GuilhermeNascimento nenhuma ideéia do que possa ser?
    – Ramon Ruan
    Commented 22/11/2015 às 20:37

1 Resposta 1

1

Senhores, acredito que foi algum conflito de nomes de string, pois no meu private eu estava utilizando o nome ScriptUP, após a mudança para o nome ScriptUpload, ele conseguiu pegar o Host, parece que não tem nada a ver, mas sinceramente, tem!

Solução foi mudar a string que estava captando o host/script para realizar o post.

Segue o código:

function TForm1.UploadArquivo(server, script, caminhoarq : string) : boolean;
var
  Response, URL : String;
  HTTPClient : TIdHTTP;
  Lista : TIdMultiPartFormDataStream;
begin
  result := False;
  URL := server + script;
  Lista := TIdMultiPartFormDataStream.Create;
  HTTPClient := TIdHTTP.Create;
  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.AddFormField('Arquivo', caminhoarq);//, 'application/octet-stream');
      Response := UTF8Decode(Trim(HTTPClient.Post(URL, Lista)));
      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;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .