Где глюк ?

[JiF]

вот хочу написать прогу, которая будет отображать вебкамеру с РГА.ру:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Wininet,Jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Timer: TTimer;
procedure FormCreate(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure FormDestroy(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mempic:TMemoryStream;

implementation

{$R *.dfm}
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
mempic.Clear;
while True do
begin
dwBytesRead := 1024;
InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
if dwBytesRead = 0 then break;
lpBuffer[dwBytesRead] := #0;
mempic.Write(lpBuffer,dwBytesRead);
end;
mempic.Seek(0,0);
Result := True;

finally
InternetCloseHandle(hService);
end;
end;
finally
InternetCloseHandle(hSession);
end;
end;



procedure TForm1.TimerTimer(Sender: TObject);
var jpg:TJPEGImage;
bmp:TBitmap;
begin
if DownloadURL('http://rga.ru/webcam/video.tmp') then
begin
beep;
bmp := TBitMap.Create;
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(mempic);
bmp.Assign(Jpg);
Form1.Canvas.Draw(0,0,bmp);
bmp.free;
Jpg.free;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
mempic:=TMemoryStream.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
mempic.free;
end;

end.

впринципе всё работает , но картинка не обновляется ! .... как профиксить ? я думаю трабла вся в функции DownloadURL (я её взял откудато ...)
либо посоветуйте более понятную и нормальную функцию для закачки файлов ...

[Mozart]

вот хочу написать прогу, которая будет отображать вебкамеру с РГА.ру:

впринципе всё работает , но картинка не обновляется ! .... как профиксить ? я думаю трабла вся в функции DownloadURL (я её взял откудато ...)
либо посоветуйте более понятную и нормальную функцию для закачки файлов ...

Мля...имхо через php через сокеты проще сделать...

[nons]

хм...а пробовал юзать WebBrowser с вкладки Internet?
а по коду..я сильно не смотрел, но что то там с потоком (stream) у тя было...не легче ли было получать этот поток через TClientSocket ...опять таки имхо ...детально код не разбирал

[JiF]

Мля...имхо через php через сокеты проще сделать...

Нужна именно программа, так как у меня нету сервака с пхп (и предположительно у юзеров тоже не будет )

[JiF]

хм...а пробовал юзать WebBrowser с вкладки Internet?
а по коду..я сильно не смотрел, но что то там с потоком (stream) у тя было...не легче ли было получать этот поток через TClientSocket ...опять таки имхо ...детально код не разбирал

Веб бразуер - это уже лишние ActiveX' ы и т.д.....
в коде я не врубаюсь что за строчки
hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
и
hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
....
остальное все вроде понятно .... в memfile типа TMemoryStream зугружается картинка, причем НЕ ПОТОКОМ, потому что там нет потока , а просто файл на сервере стоит, и каждые 3 сек (или скока там) обновляется...
...
А как через сокеты скачать файл ? .... по протоколу http ?