Enviar arquivo via Sockets por Delphi 2009 0u 2010

[xlayx]

Olá pessoal,estou tentando criar uma conexão remota para efetuar Printscreen.

já tenho um código todo feito que achei na net, porem ele funciona somente compilando no delphi 7,

ele compila de boa no delphi2010,sem dar nenhum erro... mas não transferi o arquivo jpeg ao executar e enviar o sendtext.

alguém pode mim da um help para funcionar corretamente no delphi 2010?? :wacko:

Siga abaixo código

Site com a fonte: http://www.forum-invaders.com.br/vb/showth...ados-via-socket

Código que transferi o arquivo

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

var

s: string;

begin

s:=Socket.ReceiveText;

if not Receiving then

begin

if pos(#0,s) > 0 then

stSize:=strtoint(copy(s,1,pos(#0,s)-1))

else

exit;

Stream:=TMemoryStream.Create;

Receiving:=True;

delete(s,1,pos(#0,s));

end;

try

Stream.Write(s[1],length(s));

if Stream.Size = stSize then

begin

Stream.Position:=0;

Receiving:=False;

jpg:=TJPEGImage.Create;

jpg.LoadFromStream(Stream);

Image1.Picture.Assign(jpg);

Stream.Free;

end;

except

Stream.Free;

end;

end;

[Jhonas]

se estiver usando algum componente do delphi 7, substitua-o pelo componente do delphi 2010

abraço

[xlayx]

Não jonas, não to usando nenhum componente do delphi 7,

voce testou ai??

[Jhonas]

veja se voce declarou a uses ScktComp.

TCustomWinSocket is the base class for all Windows socket objects.

Unit

ScktComp

Description

TCustomWinSocket introduces properties, events, and methods to describe an endpoint in a Windows socket connection. Descendants of TCustomWinSocket are used by socket components to manage the Windows socket API calls and to store information about a socket communication link.

A Windows socket encapsulates a set of communication protocols to allow the application to connect to other machines for reading or writing information. Windows sockets provide connections based on the TCP/IP protocol. They also allow connections that use the Xerox Network System (XNS), Digital’s DECnet protocol, or Novell’s IPX/SPX family. Sockets allow an application to form connections to other machines without being concerned with the details of the actual networking software.

Descendants of TCustomWinSocket represent different endpoints in socket connections. TClientWinSocket represents the client endpoint of a socket communication link to a server socket. TServerWinSocket represents the server endpoint of a listening connection. TServerClientWinSocket represents the server endpoint of a socket communication link to a client socket.

abraço

[xlayx]

Eu declarei a USES já sim jonas,já tinha declado era já. Porem não funciona para transferir o arquivo.

Jonas ou alguém mim da um help?

=[

[Jhonas]

se sobrar um tempo, vejo com calma o problema

mas voce pode verificar neste link

http://stackoverflow.com/questions/3291071...stream-anywhere

abraço

[xlayx]

Eu tava vendo este site tambem quase agora jonas, mas não conseguir resolver.

Obrigado então, eu aguardo voce ou quem puder me ajudar a solucionar este problema

Agradecido.

[xlayx]

já baixei varios da internet para transferir arquivo ou imagem via socket e nenhum funcioona compilando via delphi 2010.

ele compila de boas sem dar errros no delphi 2010, mas porem a parte de transferir a imagem não funciona.

alguém mim da um help awe ou tem a fonte ou o conhecimento de como fazer funcionar no delphi 2010?porque já tentei de tudo e não consigo..

obrigado gente

[Jhonas]

pode ser bug do delphi 2010

http://deblugando.wordpress.com/2010/01/02...e-help-update1/

abraço

[xlayx]

Atualizei o delphi ontem, nessas atualizações 4 e 5,e fui testar e deu na mesma =[..

:S

[Jhonas]

já experimentou usar o debugger do delphi ?

[xlayx]

já sim, mas não achei nenhuma solução que pudesse resolver fazendo o debugger :S

[Jhonas]

compare a execução no delphi 7 e no delphi 2010 usando o debugger

abraço