| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему в Stringlist не работает LoadFromFile если файл не текст? [D7, WinXP]

Страницы:   < 1 2 >

RoLeX ©   (2006-10-23 19:17:00) 

Мне нужно StringList загрузить jpg файл, т.е. чтобы было также как открыть файл jpg при помощи блокнота.
Делаю так:
procedure TForm1.Button1Click(Sender: TObject);
var list:TStrings;
begin
list:=TStringlist.Create;
list.LoadFromFile('x.jpg');
list.SaveToFile('x2.jpg');
end;
Но только ничего  не получается. Только первые 6 символов есть и всё.

---

RoLeX   (2006-10-23 19:39:00) [21]

> Dmitrij_K   (23.10.06 19:37) [9]
> > с5+


Мне нужно вStringList загрузить jpg файл

---

RoLeX   (2006-10-23 19:38:00) [22]

А где ответ?


> TStrings
>
>
> Почему строки грузятся не полностью, а только первые 5 -
>  6 символов?
>
> ...
> a:tmemo;
> ...
> a.lines.loadfromfile('a.bmp');
>  Ответ:
>
> попробуй удачи с exe файлом... там может побольше загрузится.
> .. на два три символа...
>  Ответ:
>
> Разве в школе разведчиков не обьясняли разницу между текстом
> и картинкой?
>
> мне надо текст в *.bmp загрузить во что-то и потом изменить
> и сохранить. Через файлы долго.

---

Dmitrij_K   (2006-10-23 19:37:00) [23]

> Мне нужно StringList загрузить jpg файл

5+

---

Ketmar   (2006-10-23 19:34:00) [24]

>[7] guav(c) 23-Oct-2006, 19:31
ой, нутром чую, что ты прав...

---

guav   (2006-10-23 19:31:00) [25]

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=4- см ветку TStrings

---

Джо   (2006-10-23 19:29:00) [26]

> [4] Ketmar ©   (23.10.06 19:26)

Бог весть...


>
>
> [3] RoLeX   (23.10.06 19:25)
> Ну так можно ли как-нибудь открыть файл в stringlist'е ?

Ну зачем оно нужно-то?

---

Ketmar   (2006-10-23 19:27:00) [27]

>[3] RoLeX 23-Oct-2006, 19:25
>Ну так можно ли как-нибудь открыть файл в stringlist'е ?
а не пояснишь, зачем бинарный(в смысле -- не .txt) файл пихать в TStringList? какой в этом сакральный смысл?

---

Ketmar   (2006-10-23 19:26:00) [28]

>[2] Джо(c) 23-Oct-2006, 19:21
>Ответ (aka сермяжная правда) кроется в исходном коде
>метода procedure TStrings.SetTextStr:
до сих пор, кстати, не могу понять, почему написано именно так. %-( рудименты каких-то загадочных идей создателей генофонда?

---

RoLeX   (2006-10-23 19:25:00) [29]

Ну так можно ли как-нибудь открыть файл в stringlist'е ?
Если можно примерчик. Спасибо.

---

Leonid Troyanovsky   (2006-10-23 19:21:00) [30]

> RoLeX   (23.10.06 19:17)

> Мне нужно StringList загрузить jpg файл, т.е. чтобы было
> также как открыть файл jpg при помощи блокнота.


Воистину: увидишь на клетке льва надпись "Буйвол" -
не верь глазам своим.

--
Regards, LVT.

---

Джо   (2006-10-23 19:21:00) [31]

> Почему

Ответ (aka сермяжная правда) кроется в исходном коде метода procedure TStrings.SetTextStr:

procedure TStrings.SetTextStr(const Value: string);
var
 P, Start: PChar;
 S: string;
begin
 BeginUpdate;
 try
   Clear;
   P := Pointer(Value);
   if P <> nil then
    while P^ <> #0 do
     begin
       Start := P;
       while not (P^ in [ #0, #10, #13]) do Inc(P);
       SetString(S, Start, P - Start);
       Add(S);
       if P^ = #13 then Inc(P);
       if P^ = #10 then Inc(P);
     end;
 finally
   EndUpdate;
 end;
end;

---

Страницы:   < 1 2 >

Наверх