Fórum transferencia de arquivos #163016

É o seguinte, tenho um código que gera um arquivo .jpg num cliente, atravez de um comando passado por socket. Gostaria de saber como faria para depois de gerar o arquivo, ele enviasse ao servidor que exibiria em um timage. O código dá um print scream e transforma de bmp para jpg.
o código para gerar o jpg é este:
PROCEDURE CAPTURATELA(SALVAR_JPG: boolean; ONDE_SALVAR: STRING);
VAR
DC: HDC;
TelaBitmap: Tbitmap;
TELAJPG: TJPEGImage;
BEGIN
DC:= GetDC (getDesktopWindow);
TelaBitmap:= TBitmap.Create;
try
TelaBitmap.width := getdevicecaps (DC,HORZRES);
TelaBitmap.Height := getdevicecaps (DC,VERTRES);
BitBlt(TelaBitmap.Canvas.Handle,0,0,TelaBitmap.width, TelaBitmap.height,DC,0,0,SRCCOPY);
finally
ReleaseDC (GetDeskTopWindow,DC);
end;
if SALVAR_JPG = true then
begin
TELAJPG := TJpegImage.Create;
TELAJPG.Assign(TelaBitmap);
TELAJPG.CompressionQuality := 90;
TELAJPG.JpegNeeded;
TELAJPG.SavetoFile(ONDE_SALVAR);
TELAJPG.Destroy;
end
else
TelaBitmap.SaveToFile(ONDE_SALVAR);
END;
[b:be1f1afb4e]qualquer ajuda é bem vinda[/b:be1f1afb4e]
sanses