Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi исправить ошибки в методе Рунге-Кутта Доброго времени суток! Вобщем парень попросил исправить ошибку в маткаде и в проекте Делфи. Если есть такая возможность, помогие ему, а заодно и мне, тк не могу своими мозгами въехать что не так. Заранее спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread236334.html Delphi Добавить строчку в DbGrid
Покажите как добавить строчку в DBGrid1 на примере Добавлено через 1 час 13 минут Покажите как добавить строчку в DBGrid1 на примере Как я понял он только выводит Покажите пример добавления строчки в БД Колонки : Название1,название2,итп
Delphi Не снимается флаг Checked в подменю https://www.cyberforum.ru/ delphi-beginners/ thread236291.html
Делаю так: procedure TForm1.N0Name01Click(Sender: TObject); Var i: Integer; begin for i := 0 to 3 do begin Reopen1.Items.Checked:= False; end; (Sender as TMenuItem).Checked:= True; end;
Delphi Не отображается символ подчеркивания Здравствуйте! Делаю подменю Reopen в меню File. В подменю должно быть: "В качестве нулевой строки вложенного меню установить подчеркнутую цифру 0, а за ней полное имя файла, полученное из диалогового окна. " Делаю так: procedure TForm1.Open1Click(Sender: TObject); Var i: Integer; s: String; https://www.cyberforum.ru/ delphi-beginners/ thread236224.html
загрузка в treeview Delphi
Всем доброго времени суток! Вопрос такой. На диске С у меня есть папка Архив с вложенными в нее папками(например папка1, папка2, папка3 и т.д.), в каждой из которых в свою очередь лежат документы (1.txt, 2.txt и т.д.) Как сделать так, чтобы при загрузки приложения вся эта структура папок и файлов отображалась в treeview? И еще один вопрос: возможно ли сделать так, чтобы при создании узла в...
Delphi Удалить столбец содержащий минимальный элемент матрицы https://www.cyberforum.ru/ delphi-beginners/ thread236215.html
дана матрица размером 5 на 10. Удалить столбец содержащий минимальный элемент матрицы
Delphi API Vkontakte загрузка изображений на стену https://www.cyberforum.ru/ delphi-beginners/ thread236187.html
похоже я злостно туплю ( проблема в сабже, на сайте вконтакта есть описание процесса 1. С помощью метода wall.getPhotoUploadServer приложение узнает http-адрес для загрузки фотографий. 2. Приложение формирует POST-запрос на полученный адрес. Запрос должен содержать поле photo, которое содержит файл с изображением (JPG, PNG, BMP или GIF). В ответ приложение получает следующие данные в...
Delphi Упорядочить элементы главной диагонали матрицы по не убыванию
Задана квадратная матрица целых чисел. Упорядочить элементы главной диагонали мат-рицы по не убыванию. Дублирование тем запрещено правилами форума (п. 3.4). Не плодите одинаковых тем.
Delphi Расчет по 2 формулам https://www.cyberforum.ru/ delphi-beginners/ thread236173.html
две формулы нужна в делфи (не консоль) через мемо вот примерный код но он не работает x:=strtofloat(edit1.Text); y:=cos(x)*cos(x)*cos(x)*cos(x)+sin(y)*sin(y)+0.5*sin(2*x-1) 1 формула sin(y+x)*sin(y-x); 2 формула memo1.lines.add('x= ' +edit1.text+' y= ' ); floattostr(y) ;
Delphi sender / asender на webbrowser (ie против gecko) когда создаем процедуру CommandStateChange на webbrowser1 в скобках получаем: procedure TfrmMyBrowser.WebBrowser2CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); А если то же самое, но с MozillaBrowser1 то: procedure TfrmMyBrowser.MozillaBrowser1CommandStateChange(ASender: TObject; Command: Integer; Enable: WordBool); почему так? почему при ie SENDER а при... https://www.cyberforum.ru/ delphi-beginners/ thread236150.html
Delphi Перебор
Привет...пожалуйста помогите ...никак не могу придумать алгоритм перестановки символов.... з клавиаутры вводим символы...любой длины....мне нужно найти все возможные комбинации
Delphi Код перевода из 16ой в 10ую СС. https://www.cyberforum.ru/ delphi-beginners/ thread236123.html
Ребят застрял в коде перевода из 16ой СС в 10ую... мне нужно именно этот код довести до ума без использования функции... только в процедуре. Помогите пожалуйста. begin f:=Edit1.Text; Edit2.Text:=''; for i:=length(f) downto 1 do case f of '0': Edit2.text:= '0'+Edit2.text; '1': Edit2.text:= '1'+Edit2.text; '2': Edit2.text:= '2'+Edit2.text; '3': Edit2.text:=...
2 / 2 / 1
Регистрация: 20.03.2010
Сообщений: 8
0

запись и чтение изображения в файл своего расширения - Delphi - Ответ 1331352

31.01.2011, 16:11. Показов 2011. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый день, уважаемые программисты.
Столкнулся с такой проблемой: нужно в Delphi написать программу, которая бы записывала информацию в файл, своего расширения (под своим расширением я понимаю к примеру *.pg, *.sss ....); записываемая информация должна содержать цифровое поле и поле с изображением bmp. После записи даной инфрмации чтоб можна было легко считать необходимое поле.

Порылся немного в нете, нашел реализацию записи изображения в файл и как записать и считать данные с файла, но соединить их не могу...
(Не говорите только что это баян, то как этот баян я не нашел)
привожу пример записи/чтения нужного элемента из файла:

Код:

Delphi
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
type  TMember = record
    name  : string[50];
    eMail : string[30];
    Posts : LongInt;
    end;
var
  Form1: TForm1;
  Members : array[1..50] of TMember;
 
procedure TForm1.Button1Click(Sender: TObject);// по нажатию кнопки идет запись информации в файл 'd:\MyDocument.pg'
var  F : file of TMember;
 i: integer;
begin
 Members[1].name:='___Nikolay';
  Members[1].eMail:='DelphiWorld@mail.ru';
  Members[1].Posts:=10;
  Members[2].name:='Sveta';
  Members[2].eMail:='sveta29@mail.ru';
  Members[2].Posts:=28;
  Members[3].name:='Elena';
  Members[3].eMail:='malisheva_e@rambler.ru';
  Members[3].Posts:=5;
AssignFile(F,'d:\MyDocument.pg');
Rewrite(F);
try    for i:= 1 to 50 do
write (F, Members[i]);
finally    CloseFile(F);
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);// здесь считуються нужная информация
var  ReadMembers: array[1..50] of TMember;
F: file of TMember;
i: integer;
begin
AssignFile(F,'d:\MyDocument.pg');
Reset(F);
try    i:=0;
while not Eof(F) do
begin      read (F, ReadMembers[i]);
       ////////////////////////
       StringGrid1.Cells[0,i]:=ReadMembers[i].name;// видно, что можно обратится к любому значению с файла
       StringGrid1.Cells[1,i]:=ReadMembers[i].eMail;
       StringGrid1.Cells[2,i]:=IntToStr(ReadMembers[i].Posts);
       ////////////////////////
       i:=i+1;
       end;
       finally
       CloseFile(F);
       end;
end;
как добавить сюда загрузку изображения?
подскажите плиз, а то препод убьет))

Вернуться к обсуждению:
запись и чтение изображения в файл своего расширения Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2011, 16:11
Готовые ответы и решения:

Значок для своего расширения
Я создал программу для тестирования (по информатике) и создания (изменения) тестов. Вот расширение:...

Запись в файл и чтение
Подскажите как можно записывать в файл, читать (как читать в массив) если можно то с объяснениями.

Чтение\запись в файл структуру
есть код: type Files = record qu, answ: string; end; TFile = ^Files;...

Нетипизированный файл, чтение/запись
Здравствуйте! Подскажите пожалуйста, как побайтно записать в одну строку текстового файла данные из...

2
31.01.2011, 16:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2011, 16:11
Помогаю со студенческими работами здесь

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

Строки, чтение из файла и запись в файл
Здравствуйте. Подскажите пожалуйста, как переделать программу, чтоб реализовать чтение информации...

Запись двусвязного списка в файл и чтение
Помогите как записывать в файл список а потом его считывать и уже работать с ним,весь форум обрыл...

Чтение и запись данных из множества ListBox в один файл.
Требуется помощь.Нужно сохранить Listbox1 и Listbox2 в txt,в гугле ничего такого не нашел,на вашем...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru