Acessando site1

[kakamit 0]

Como eu faço para acessar um site que eu digitar no edit? Tranks!

[kakamit 0]

Tipo eu fiz 2 programas 1 com serversocket e um clientsocket ai no pricipal quero colocar um botao para tirar printscreen da tela de quem ta com o outro programA, ja fiz a conexão e tudo e talz tá até bom, ai quando tira pritscreen ele aparece para mim no image1.

[Raficcha 1]

Ow.. tente esta função

 

function DownloadArquivo(const Origem, Destino: String): Boolean;
const BufferSize = 1024;
var
	hSession, hURL: HInternet;
	Buffer: array[1..BufferSize] of Byte;
	BufferLen: DWORD;
	f: File;
	sAppName: string;
begin
	Result := False;
	sAppName := ExtractFileName(Application.ExeName);
	hSession := InternetOpen(PChar(sAppName),
 	INTERNET_OPEN_TYPE_PRECONFIG,
				nil, nil, 0);
	try
		hURL := InternetOpenURL(hSession,
								PChar(Origem),
								nil,0,0,0);
		try
			AssignFile(f, Destino);
			Rewrite(f,1);
			repeat
				InternetReadFile(hURL, @Buffer,
								SizeOf(Buffer), BufferLen);
				BlockWrite(f, Buffer, BufferLen)
			until BufferLen = 0;
			CloseFile(f);
			Result:=True;
		finally
			InternetCloseHandle(hURL)
		end
	finally
		InternetCloseHandle(hSession)
	end
end;

end.

Use assim:

 

	if (DownloadArquivo('http://www.endereco_de_algum_site.com', 'C:\algum_arquivo.html') then
 	ShowMessage('Download concluído')
	else
 	ShowMessage('Erro ao fazer o download');

: D

[kakamit 0]

Não entendi o sentido da função raficcha. Tem como fazer o que eu pedir logo a cima?, nao entendi o que esse faz o,o' só download?