Форум: "Сети";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
ВнизWebBrowser и его содержимое Найти похожие ветки
← →
Vovanchik (2006-03-28 02:51) [0]Приветствую!!! Вот например у меня есть на сайтике картинка в формате *.png
неважно какая! Как мне загрузить ее в веб броузер а точнее ее о туда скачать! Чтото мне говорит что там нада использовать такую же технологию как и при работе с "офисом"!Помогите разобраться... И еще паралельно вопрос... Если я знаю сайт и знаю его содержимое как мне загрузить чтото определенное с него не весь, а кусочек...например туже картинку!!!
← →
WondeRu © (2006-03-28 11:02) [1]
DownloadFile("http://www.wonderu.com/wonderu_88x31.png", "c:\wonderu_88x31.png")
uses
URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
// URL Location
SourceFile = "http://www.google.com/intl/de/images/home_title.gif";
// Where to save the file
DestFile = "c:\temp\google-image.gif";
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage("Download succesful!");
// Show downloaded image in your browser
ShellExecute(Application.Handle, PChar("open"), PChar(DestFile),
PChar(""), nil, SW_NORMAL)
end
else
ShowMessage("Error while downloading " + SourceFile)
end;
// Minimum availability: Internet Explorer 3.0
// Minimum operating systems Windows NT 4.0, Windows 95
{********************************************************}
{2.}
uses
Wininet;
function DownloadURL(const aUrl: string): Boolean;
var
hSession: HINTERNET;
hService: HINTERNET;
lpBuffer: array[0..1024 + 1] of Char;
dwBytesRead: DWORD;
begin
Result := False;
// hSession := InternetOpen( "MyApp", INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hSession := InternetOpen("MyApp", INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
if Assigned(hSession) then
begin
hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
if Assigned(hService) then
try
while True do
begin
dwBytesRead := 1024;
InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
if dwBytesRead = 0 then break;
lpBuffer[dwBytesRead] := #0;
Form1.Memo1.Lines.Add(lpBuffer);
end;
Result := True;
finally
InternetCloseHandle(hService);
end;
end;
finally
InternetCloseHandle(hSession);
end;
end;
← →
Vovanchik (2006-03-29 00:56) [2]пасибки большое.... помог!!!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c