Буфер обмена

@Maksim2309 · Регистрация: 17.01.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер форумчане. Выручайте. Вот код
Delphi 7:

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
procedure TSpisok.BitBtn1Click(Sender: TObject);
var
  Path : String;
  LookRes : Variant;
begin
 
  if OpenDialog1.Execute then begin
    Path := OpenDialog1.FileName;
    ClipBoard.SetTextBuf(PChar(Path));
    ShellExecute(Handle, 'open',
          PChar(ExtractFilePath(paramstr(0))+'Obl\Win32\Debug\Obl.exe'),
          nil, nil, SW_SHOWNORMAL);
    ID3v2.ReadFromFile(Path);
    ID3v1Tag.LoadFromFile(Path);
  try
    LookRes:=DM.BaseT.Lookup('Isp; Nazv; GodV; Put; Albom; Zanr',
      VarArrayOf([ID3v2.TagData.fArtist, ID3v2.TagData.fTitle,
      ID3v2.TagData.fYear, Path, ID3v2.TagData.fAlbum, ID3v1Tag.Genre]),
      'Isp; Nazv; GodV; Put; Albom; Zanr');
  except
    MessageBox(Handle, 'Ïðåâûøåí äèàïàçîí ñèìâîëîâ, ïîìåíÿéòå çíà÷åíèÿ â'+
      ' ñâîéñòâàõ ôàéëà', 'Îøèáêà', MB_ICONASTERISK+MB_OK);
    exit;
  end;
   if VarIsNull(LookRes) then begin
    DM.BaseT.Insert;
    DM.BaseT['Isp']:=ID3v2.TagData.fArtist;
    DM.BaseT['Nazv']:=ID3v2.TagData.fTitle;
    DM.BaseT['GodV']:=ID3v2.TagData.fYear;
    DM.BaseT['Put']:=Path;
    DM.BaseT['Albom']:=ID3v2.TagData.fAlbum;
    DM.BaseT['Zanr']:=ID3v1Tag.Genre;
    DBImage1.Picture.Assign(Clipboard);
    DM.BaseT.Post;
   end
   else
    MessageBox(Handle, 'Ïåñíÿ óæå äîáàâëåíà', 'Ïîèñê', MB_ICONASTERISK);
  end;
 
end;

RAD XE5

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
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
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClipBoard2:=TClipBoard.Create;
  ID3v2Tag:=TID3v2Tag.Create;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Text:=ClipBoard2.AsText;
  ID3v2Tag.LoadFromFile(Edit1.Text);
  LoadApic(0);
  //Close;
end;
 
function TForm1.LoadAPIC(Index: Integer): Boolean;
var
    PictureType: Integer;
    PictureStream: TStream;
    JPEGPicture: TJPEGImage;
    Success: Boolean;
    MIMEType: AnsiString;
    Description: String;
    i: Integer;
begin
    try
        PictureStream := TMemoryStream.Create;
        try
            if Index = 0 then begin
                Index := ID3v2Tag.FrameExists('APIC');
            end;
            if Index < 0 then begin
                Exit;
            end;
 
            Success := ID3v2Tag.GetUnicodeCoverPictureStream(Index, PictureStream, MIMEType, Description, PictureType);
            //* No APIC pitcure found, exit
            if (PictureStream.Size = 0)
            OR (NOT Success)
            then begin
                Exit;
            end;
 
            //* Get first APIC index
            if Index = 0 then begin
                for i := 0 to ID3v2Tag.FrameCount - 1 do begin
                    if ID3v2Tag.Frames[i].ID = 'APIC' then begin
                        CurrentAPICIndex := i;
                        Break;
                    end;
                end;
            //* Store the current APIC index as Index is frame index
            end else begin
                CurrentAPICIndex := Index;
            end;
 
            if (MIMEType = 'image/jpeg')
            OR (MIMEType = 'image/jpg')
            then begin
                PictureStream.Seek(0, soFromBeginning);
                JPEGPicture := TJPEGImage.Create;
                JPEGPicture.LoadFromStream(PictureStream);
                JPEGPicture.DIBNeeded;
                Image1.Picture.Assign(JPEGPicture);
                JPEGPicture.Free;
                Clipboard2.Assign(Image1.Picture);
            end;
            //* If BMP
            if MIMEType = 'image/bmp' then begin
                PictureStream.Seek(0, soFromBeginning);
                Image1.Picture.Bitmap.LoadFromStream(PictureStream);
                Clipboard2.Assign(Image1.Picture);
            end;
            //* To load other formats a third party component is needed, for example GraphicEx or Free Image Library
        finally
            PictureStream.Free;
        end;
    except
        //*
    end;
end;

Так как Delphi 7 не поддерживает ID3v2 пришлось использовать XE5 чтобы вытащить обложку муз. файла. Теперь нужно чтобы в XE5 передавался путь к файлу а обратно Delphi 7 получал картинку. Все это через буфер обмена. Я посылаю путь в буфер

Delphi
1
ClipBoard.SetTextBuf(PChar(Path));

где Path это переменная со значением пути, если делать без ShellExecute, т.е. не запускать XE5 из под делфи 7, а запустить отдельно, тогда путь передается нормально, но если я пишу полный код (исходник сверху(Delphi 7)), тогда вылетают ошибки. Внимание вопрос как это исправить и почему они вылетают? Заранее спасибо за помощь.

P.S. Ошибки во вложениях

@Maksim2309 · 11.10.2013, 13:16 **[ТС]**

Подредактировал код, покапался. Работает почти как надо только в DBImage картинка не грузится. Подскажите пожалуйста почему? Заранее спасибо. Вот код:
Delphi 7

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
52
53
54
55
56
57
58
59
60
61
62
procedure TSpisok.BitBtn1Click(Sender: TObject);
var
  Path : String;
  LookRes : Variant;
begin
 
  if OpenDialog1.Execute then begin
    Path := OpenDialog1.FileName;
    ClipBoard.SetTextBuf(PChar(Path));
    ShellExecute(Handle, 'open',
          PChar(ExtractFilePath(paramstr(0))+'Obl\Win32\Debug\Obl.exe'),
          nil, nil, SW_SHOWNORMAL);
    ID3v2.ReadFromFile(Path);
    ID3v1Tag.LoadFromFile(Path);
  try
    LookRes:=DM.BaseT.Lookup('Isp; Nazv; GodV; Put; Albom; Zanr',
      VarArrayOf([ID3v2.TagData.fArtist, ID3v2.TagData.fTitle,
      ID3v2.TagData.fYear, Path, ID3v2.TagData.fAlbum, ID3v1Tag.Genre]),
      'Isp; Nazv; GodV; Put; Albom; Zanr');
  except
    MessageBox(Handle, 'Ïðåâûøåí äèàïàçîí ñèìâîëîâ, ïîìåíÿéòå çíà÷åíèÿ â'+
      ' ñâîéñòâàõ ôàéëà', 'Îøèáêà', MB_ICONASTERISK+MB_OK);
    exit;
  end;
   if VarIsNull(LookRes) then begin
    DM.BaseT.Insert;
    DM.BaseT['Isp']:=ID3v2.TagData.fArtist;
    DM.BaseT['Nazv']:=ID3v2.TagData.fTitle;
    DM.BaseT['GodV']:=ID3v2.TagData.fYear;
    DM.BaseT['Put']:=Path;
    DM.BaseT['Albom']:=ID3v2.TagData.fAlbum;
    DM.BaseT['Zanr']:=ID3v1Tag.Genre;
    ConvertJPGToBmp(ClipBoard);
    if ClipBoard.HasFormat(cf_Bitmap) then
      DBImage1.Picture.Assign(ClipBoard);
    DM.BaseT.Post;
   end
   else
    MessageBox(Handle, 'Ïåñíÿ óæå äîáàâëåíà', 'Ïîèñê', MB_ICONASTERISK);
  end;
 
end;
 
procedure TSpisok.ConvertJPGToBmp(ClipBoard: TClipBoard);
var
  JPEG: TJPEGImage;
  BMP : TBitmap;
begin
 
  JPEG := TJPEGImage.Create;
  BMP  := TBitmap.Create;
 
  if ClipBoard.FormatCount=3 then begin
    JPEG.Assign(ClipBoard);
    BMP.Assign(JPEG);
    ClipBoard.Assign(BMP);
  end;
 
  JPEG.Free;
  BMP.Free;
 
end;

RAD XE5

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
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
procedure TForm1.FormCreate(Sender: TObject);
begin
  ID3v2Tag:=TID3v2Tag.Create;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ID3v2Tag.LoadFromFile(ClipBoard.AsText);
  ClipBoard.Clear;
  LoadApic(0);
  Close;
end;
 
function TForm1.LoadAPIC(Index: Integer): Boolean;
var
    PictureType: Integer;
    PictureStream: TStream;
    JPEGPicture: TJPEGImage;
    Success: Boolean;
    MIMEType: AnsiString;
    Description: String;
    i: Integer;
begin
    try
        PictureStream := TMemoryStream.Create;
        try
            if Index = 0 then begin
                Index := ID3v2Tag.FrameExists('APIC');
            end;
            if Index < 0 then begin
                Exit;
            end;
 
            Success := ID3v2Tag.GetUnicodeCoverPictureStream(Index, PictureStream, MIMEType, Description, PictureType);
            //* No APIC pitcure found, exit
            if (PictureStream.Size = 0)
            OR (NOT Success)
            then begin
                Exit;
            end;
 
            //* Get first APIC index
            if Index = 0 then begin
                for i := 0 to ID3v2Tag.FrameCount - 1 do begin
                    if ID3v2Tag.Frames[i].ID = 'APIC' then begin
                        CurrentAPICIndex := i;
                        Break;
                    end;
                end;
            //* Store the current APIC index as Index is frame index
            end else begin
                CurrentAPICIndex := Index;
            end;
 
            if (MIMEType = 'image/jpeg')
            OR (MIMEType = 'image/jpg')
            then begin
                PictureStream.Seek(0, soFromBeginning);
                JPEGPicture := TJPEGImage.Create;
                JPEGPicture.LoadFromStream(PictureStream);
                JPEGPicture.DIBNeeded;
                Image1.Picture.Assign(JPEGPicture);
                JPEGPicture.Free;
                Clipboard.Assign(Image1.Picture);
            end;
            //* If BMP
            if MIMEType = 'image/bmp' then begin
                PictureStream.Seek(0, soFromBeginning);
                Image1.Picture.Bitmap.LoadFromStream(PictureStream);
                Clipboard.Assign(Image1.Picture);
            end;
            //* To load other formats a third party component is needed, for example GraphicEx or Free Image Library
        finally
            PictureStream.Free;
        end;
    except
        //*
    end;
end;

Добавлено через 16 часов 59 минут
Все разобрался. Всем спасибо.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .