Fórum Exemplo de Post #450861

04/08/2013

0

Delphi

Gostaria de uma ajuda para implementar este código em delphi.


Em resumo passo por parâmetro key, imagem em gif e recebo o retorno.

< form action="http://api.captchaboss.com/imagepost.ashx" method="post" enctype="multipart/form-data" >

<input type="text" name="action" value="upload"/>

< input type="text" name="key" value="KLJFSDFJLLG9KJT5IOEIWE839823K"/>

<input type="file" name="file"/>

<input type="text" name="gen_task_id" value="1"/>

<input type="submit" value="Submit"/>

</form>
Host Solucões

Host Solucões

Responder

Posts

05/08/2013

Alessandro Yamasaki

Qual a dúvida ou erro?
Responder

Gostei + 0

05/08/2013

Host Solucões

Gostaria de transformar este texto em html, em uma função no Delphi
Responder

Gostei + 0

05/08/2013

Deivison Melo

Dá uma olhada no link abaixo:

http://www.planetadelphi.com.br/artigo/114/criando-um-editor-de-html

Ele ensina desenvolver um editor de html, então não ensinará apenas
salvar as tag´s como interagir com elas...

Qualquer dúvida posta novamente!!

Abraços e bons códigos!!!
Responder

Gostei + 0

07/08/2013

Wesley Yamazack

Opa meu querido, qual seria a ideia que você tem em mente, poderia explicar melhor?

abs
Responder

Gostei + 0

07/08/2013

Host Solucões

Boa tarde, na verdade conseguiu o que desejava utilizando esta rotina abaixo:

O que eu estava precisando era pegar uma função em uma outra linguagem, neste caso em html e criar uma função para o Delphi.

Onde nesta função precisava passar, alguns parâmetros e um upload de um arquivo.

Com a rotina abaixo consegui o que precisava, obrigado a atenção de todos.


var
Stream: TStringStream;
Params: TIdMultipartFormDataStream;
begin
try
Stream := TStringStream.Create('');
try
Params := TIdMultipartFormDataStream.Create;
try

Params.AddFormField('action','upload');
Params.AddFormField('key','Chave');

Params.AddFile('file', local, 'application/octet-stream');
Params.AddFormField('gen_task_id','1');

try
IdHTTP1.Post('sitedesejado', Params, Stream);
except
on E: Exception do ShowMessage('Error encountered during POST: ' + E.Message);
end;
result := Stream.DataString;
finally
Params.Free;
end;
finally
Stream.Free;
end;
except
captchar(local);
end;
end;

[Concluido]
Responder

Gostei + 0

21/02/2014

Thiago Quintino

Boa tarde amigo Analista_Host, também estou tentando fazer o post com o delphi 7 no mesmo serviço que o amigo descreve, a única diferença que notei foi que o endereço da API deles mudou para: http://www.fasttypers.org/imagepost.ashx. Implementei aqui o código postado pelo amigo, porém só obtenho: "INVALID_REQUEST" como retorno, o amigo ainda possui essa rotina em uso? ela foi atualizada em algo?
Responder

Gostei + 0

29/10/2014

Host Solucões

Bom dia

Tenho sim, vou te enviar.
Responder

Gostei + 0

02/11/2016

Pedro Silva

Analista_host, amigo preciso muito entrar em contato com voce....
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com

No aguardo

PEDRO
Responder

Gostei + 0

07/02/2017

Host Solucões

Analista_host, amigo preciso muito entrar em contato com voce....
assunto de nosso mútuo interesse, por favor como podemos entrar em contato
meus contatos são: skype: pedroairtondasilva
email: pairton7@gmail.com

No aguardo

PEDRO

Opa Pedro, demorei um pouco mais meu contato é skype: host_areatecnica, email brunorossif@gmail.com
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar