Текущий архив: 2003.01.09;
Скачать: CL | DM;

Вниз

array --> TJpg. Это возможно?   Найти похожие ветки 

← →
Ascan_   (2002-09-20 18:46) [0]

То, что картинку можно загрузить из файла, я знаю. А как обойтись без файла? Скажем, если я ее скачал с internet"а прямо в память, а теперь хочу с ней работать. И не люблю ничего писать на диск. Как скачать я разобрался. Но вот как ее теперь "запихнуть" в TJpg?

---

← →
BOA_KAA   (2002-09-20 19:09) [1]

А в куда ты ее закачиваешь?

---

← →
Алексей Ким   (2002-09-20 19:45) [2]

для стрима
var jpg: TJpegImage;
...
jpg.LoadFromStream ( MyStream );
...
так вроде... или не так?

---

← →
BOA_KAA   (2002-09-20 19:54) [3]

Короче, уточнения, видимо, не будет:)))
Так что либо через стрим (Алексей Ким © (20.09.02 19:45)), либо через буфер аналогично. Других способов достать jpg я не видел

---

← →
Алексей Ким   (2002-09-20 20:01) [4]

"...чукотское радио 79.99кГц 2 часа молчало...
- Передача для глухонемых окончена..."

---

← →
Ascan_   (2002-09-23 13:15) [5]

Ребята не судите строго, Господа! Выходные...

>А в куда ты ее закачиваешь?
Ну, скажем, я закачиваю примерно так:

var
p: pointer;
hInet, hURL:HINTERNET;
Header:string;
ReadLen: longint;
begin
fSize:=0;
hInet := InternetOpen("Mozilla", PRE_CONFIG_INTERNET_ACCESS, nil, nil, 0);
Header:="Accept: */*";
hURL:= InternetOpenURL(hInet, PChar(<url>), pchar(Header), StrLen(pchar(Header)), 0, 0);
InternetQueryDataAvailable(hURL, fSize,0,0);

GetMem(p, fSize);
InternetReadFile(hURL, p, fSize, ReadLen);
InternetCloseHandle(hURL); InternetCloseHandle(hInet);
...
И вот тут я сижу и думаю: А что дальше?
...
FreeMem(p, fSize);


---

← →
MBo   (2002-09-23 13:24) [6]

загони в MemoryStream и JpegImage.LoadFromStream

---

← →
Ascan_   (2002-09-23 13:37) [7]

Вот! Это я сейчас и пытаюсь сделать. С MemoryStream я пока еще не работал, но, думаю, разберусь...

---

← →
Ascan_   (2002-09-23 14:43) [8]

Не получается... :-(

Stream := TMemoryStream.Create;
Stream.SetSize(fSize);
Stream.WriteBuffer(p^, fSize);
Jpg:= TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Jpg.SaveToFile("c:\file2.jpg");
Jpg.Free;
Stream.Free;


Создается пустой файл... В чем ошибка?

---

← →
Ascan_   (2002-09-23 14:46) [9]

Все, разобрался! Всем спасибо!


Stream := TMemoryStream.Create;
Stream.SetSize(fSize);
Stream.WriteBuffer(p^, fSize);
Stream.Position:= 0;
Jpg:= TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Jpg.SaveToFile("c:\file2.jpg");
Jpg.Free;
Stream.Free;


---

Страницы: 1 вся ветка

Текущий архив: 2003.01.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.007 c