ranca esse ilustríssimo :o)
Abaixo um código exemplo de como enviar o jpeg por stream, este seria o código para recebimento do arquivo
procedure TFileServerThread.ClientExecute;
var
Data: array[0..1023] of char;
FileName: String;
SocketStream: TWinSocketStream;
begin
while not Terminated and ClientSocket.Connected do
try
SocketStream := TWinSocketStream.Create(ClientSocket, 60000);
try
FillChar(Data, SizeOf(Data), 0);
if SocketStream.Read(Data, SizeOf(Data)) = 0 then
begin
// Se não receber nada após 60 segundos então fecha a conexão
ClientSocket.Close;
Terminate;
end;
FileName := Data;
if Length(FileName) > 2 then
Delete(FileName, Pos(#13#10, FileName), 2); // Delete #13#10
if FileExists(FileName) and ClientSocket.Connected then
begin
ClientSocket.SendStream(TFileStream.Create(FileName, fmOpenRead or
fmShareCompat or fmShareDenyNone));
// Precisa usar o SendMessage aqui para apontar uma resposta da app
SendMessage(Form1.Listbox1.Handle, LB_ADDSTRING, 0, Integer(PChar(FileName)));
PostMessage(Form1.Handle, CM_INCCOUNT, 0, 0);
end;
finally
SocketStream.Free;
end;
except
HandleException;
end;
end;
________________________________
De: delphi-br@yahoogrupos.com.br em nome de Allan
Enviada: qui 18/05/2006 11:33
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Olha o problemão aí, estou novamente aqui com isto. Ilustríssimo Andreano Lanusse, veja se pode ajudar.
Ilustríssimo Sr. Andreano Lanusse,
fico muito feliz por responder, é o seguinte, parece simples:
delphi 6 com FB 1.5.2., tem um campo Imagem BLOB Sub_Type 0, nele está gravada uma imagem (jpg ou bmp, tanto faz), daí possuo outro campo ImagemTXT BLOB Sub_Type 1, tenho que pegar essa imagem do Imagem BLOB Sub_Type 0 e jogar no ImagemTXT BLOB Sub_Type 1 pra enviar ela com o comando SendString(WinSocket), é isso que preciso.
Em outras palavras, converter uma imagem em texto, ler ela(o texto gerado), e gravar novamente em imagem, mas que no final eu possa abrir e fazer o mesmo processo se precisar, entendeu?.Faça um teste, abra uma .jpg no bloco de notas, salve como .jpg mesmo, mas com outro nome, tente abrir, vc não consegue, é isso que preciso, preciso que ela abra depois, é como se eu editasse a imagem.
Por favor me ajude com esse Crep's aqui.
Agradeço antecipadamente.
[]'s
Allan
----- Original Message -----
From: Andreano Lanusse
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 18, 2006 11:21 AM
Subject: RES: [delphi-br] Olha o problemão aí, estou novamente aqui com isto. Ilustríssimo Andreano Lanusse, veja se pode ajudar.
Allan,
Explica melhor que eu não estou ententendo nada....
Você quer gravar um Blob com imagem em um TXT????? É isso?????
[]'s
Andreano Lanusse
System Engineer
Borland Latin America
Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912
[EMAIL PROTECTED] - www.borland.com.br
A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Allan
Enviada em: quarta-feira, 17 de maio de 2006 22:03
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Olha o problemão aí, estou novamente aqui com isto.. Ilustríssimo Andreano Lanusse, veja se pode ajudar.
Prezados,
pra quem está tentando me ajudar, vejam bem:
se eu conseguir transformar um blob (jpg,bmp) em texto e gravar num arquivo txt, depois abrir o arquivo txt num memo e transformar ele em blob novamente, o problema está resolvido. Assim o problema fica mais resumido, quem sabe alguma boa idéia e pronto, gente muitos tentaram, agora eu pergunto, será que não tem como fazer isso no delphi?, o delphi é praticamente "ilimitado!", como posso conseguir essa façanha??.
Carro Andreano Lanusse, você teria aguma sugestão?, alguma idéia de como fazer isso??.
Ansiosamente no aguardo.
Saudações a todos.
Allan Gabriel
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12fn2eg0a/M=396559.7942981.9411633.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1148001905/A=3672775/R=2/id=noscript/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696&LID=338165&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
