[AleD]

Есть ли какой нибудь исходник для работы с файлами которые находятся в интернете? Работать как с TStream, там Seek CopyFrom Read Write... нужно для многопоточной закачки файла, как в Download Master

[PhoeniX]

Тебя разделом "Исходники" данного сайта пользоваться научить?
тут посмотри, похоже, то что тебе надо.

[AleD]

Сообщение от popyurv

Тебя разделом "Исходники" данного сайта пользоваться научить?
тут посмотри, похоже, то что тебе надо.

пасыба, просто я как то об основном сайте позабыл, тока форумом пользуюсь
зы: и нефига дутся, невывезбы я такое сразу

[AleD]

хм, люди памагите, хочу получить размер файла из интернета, пишу

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   url,sess: HINTERNET; begin   lblUrlSize.Caption := '0';   sess := InternetOpen('iexplorer',INTERNET_OPEN_TYPE_PRECONFIG,     nil,nil,0);   url := InternetOpenUrl(sess,pchar('http://'+edtUrl.Text),nil,0,0,0);   try     // working     if(url=nil)then Exit;     fs := InternetSetFilePointer(url,0,nil,FILE_END,0);     lblUrlSize.Caption := FloatToStr(fs)+' bytes';   finally     InternetCloseHandle(url);     InternetCloseHandle(sess);   end;

когда файл маленький (5-50 кб) он нормально размер получает, но когда например 500 и больше кб, он выводит какие то астрономические цифры. Он измеряет в байтах или битах?
Вот например файл со своего сайта (adworld.ucoz.ru/adworld_soft/quick_menu/QM_13.exe, весит 500 с лишним кб) он пооказывает цифру 4,294,967,295. Я ваще запутался, помогите

[AleD]

Сообщение от AleD

хм, люди памагите, хочу получить размер файла из интернета, пишу

Код:

когда файл маленький (5-50 кб) он нормально размер получает, но когда например 500 и больше кб, он выводит какие то астрономические цифры. Он измеряет в байтах или битах?
Вот например файл со своего сайта (adworld.ucoz.ru/adworld_soft/quick_menu/QM_13.exe, весит 500 с лишним кб) он пооказывает цифру 4,294,967,295. Я ваще запутался, помогите

Упс, извените разобрался, когда размер равен максимому эт значит что файл не найден, виноват uCoz он пряммые ссылки на файл не даёт

[AleD]

Тут вот посидел пол часика и сделал его, TNetStream! Для отцов паскаля это не новость, но для меня это маленькая победа . Кароче это потомок TStream, а значит теперь легко можно качать файлы из интернета или даже сделать подобие Download Master'а читая несколькими потоками один файл (функция Seek работает). Не буду жопить, вот исходник класса, создайте файл NetStream.pas в папке Delphi7\Lib и сохраните туда этот текст:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

unit NetStream;   interface   uses Windows, WinInet, Classes;   type   EInternetStreamError = EStreamError;   TNetStream = class(TStream)   private     fFile, fSession: HINTERNET;   public     constructor Create(AUrl: String; AUser: String = ''; APass: String = '');     destructor Destroy; override;     function Read(var Buffer; Count: Longint): Longint; override;     function Write(const Buffer; Count: Longint): Longint; override;     function Seek(Offset: Longint; Origin: Word): Longint; overload;override;     function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; override;   end;   implementation   constructor TNetStream.Create(AUrl: String; AUser: String = ''; APass: String = ''); begin   inherited Create;   fSession := InternetOpen(pchar('iexplorer'),INTERNET_OPEN_TYPE_PRECONFIG,nil,     nil,INTERNET_FLAG_NEED_FILE);   if(fSession=nil)then     raise EInternetStreamError.Create('Session can''t create');   fFile := InternetOpenUrl(fSession,pchar(AUrl),nil,0,INTERNET_FLAG_NEED_FILE,0);   if(fFile=nil)then     raise EInternetStreamError.Create('File not found'); end;   destructor TNetStream.Destroy; begin   InternetCloseHandle(fFile);   InternetCloseHandle(fSession);   inherited Destroy; end;   function TNetStream.Read(var Buffer; Count: Longint): Longint; var   r: Cardinal; begin   InternetReadFile(fFile,@Buffer,Count,r);   Result := r; end;   function TNetStream.Write(const Buffer; Count: Longint): Longint; var   r: Cardinal; begin   InternetWriteFile(fFile,@Buffer,Count,r);   Result := r; end;   function TNetStream.Seek(Offset: Longint; Origin: Word): Longint; var   mm: Cardinal; begin   case Origin of     soFromBeginning: mm := FILE_BEGIN;     soFromCurrent: mm := FILE_CURRENT;     soFromEnd: mm := FILE_END;   else     mm := FILE_CURRENT;   end;   Result := InternetSetFilePointer(fFile,Offset,nil,mm,0); end;   function TNetStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; var   mm: Cardinal; begin   case Origin of     soBeginning: mm := FILE_BEGIN;     soCurrent: mm := FILE_CURRENT;     soEnd: mm := FILE_END;   else     mm := FILE_CURRENT;   end;   Result := InternetSetFilePointer(fFile,Offset,nil,mm,0); end;   end.

Знаю он не идеален, но я впринципе для этого и выложил, что бы все кому он реально поможет улучшали его. Например следущее что ему нужно это поддержка прокси серверов. Дерзайте, пусть наши проги станут ближе к миру

[AleD]

и снова помогите, со всем что выше мною написано разобрался, теперь проблема в следующем: качаю файл... приостановил, потом при возобновлении он долго думает и минуты через 2 начинает докачивать, в DM он намного шустрее думает, есть решение?