Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi 6-7 Error, DFM 
V
    Опции темы
Rrader
  Дата 14.1.2006, 07:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
При попытке вызвать команду View As Form для DFM-файла следующего содержания:
Код

object UpdateForm: TUpdateForm
  Left = 304
  Top = 243
  BorderStyle = bsToolWindow
  Caption = #1057#1077#1088#1074#1080#1089' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' Windows Messages SDK 4'
  ClientHeight = 242
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel: TBevel
    Left = 8
    Top = 200
    Width = 481
    Height = 9
    Shape = bsTopLine
  end
  object Label3: TLabel
    Left = 8
    Top = 216
    Width = 170
    Height = 13
    Caption = 'WMSDK4 Updating System 1.0'
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object PageMain: TPageControl
    Left = 8
    Top = 8
    Width = 481
    Height = 185
    ActivePage = Tab1
    TabOrder = 0
    TabStop = False
    OnChanging = PageMainChanging
    object Tab1: TTabSheet
      Caption = #1064#1072#1075' 1'
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 457
        Height = 13
        AutoSize = False
        Caption =
          #1042' '#1087#1088#1086#1094#1077#1089#1089#1077' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1073#1091#1076#1077#1090' '#1087#1088#1086#1080#1079#1074#1077#1076#1077#1085#1072' '#1091#1089#1090#1072#1085#1086#1074#1082#1072' '#1085#1086#1074#1099#1093' '#1089#1086#1086#1073#1097#1077#1085#1080 +
          #1081'.'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Lb1: TLabel
        Left = 8
        Top = 136
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1053#1072#1078#1084#1080#1090#1077' "'#1044#1072#1083#1077#1077'" '#1076#1083#1103' '#1087#1088#1086#1076#1086#1083#1078#1077#1085#1080#1103
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object LbIP: TLabel
        Left = 123
        Top = 82
        Width = 4
        Height = 13
        Caption = ':'
      end
      object CbProxy: TCheckBox
        Left = 8
        Top = 56
        Width = 457
        Height = 17
        Hint = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1087#1088#1086#1082#1089#1080' '#1076#1083#1103' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1103
        Caption = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1087#1088#1086#1082#1089#1080'-'#1089#1077#1088#1074#1077#1088
        TabOrder = 0
        OnClick = CbProxyClick
      end
      object EdPort: TEdit
        Left = 128
        Top = 80
        Width = 41
        Height = 21
        Hint = #1055#1086#1088#1090' '#1087#1088#1086#1082#1089#1080
        MaxLength = 7
        TabOrder = 1
      end
      object EdIP: TEdit
        Left = 8
        Top = 80
        Width = 113
        Height = 21
        Hint = 'IP-'#1072#1076#1088#1077#1089' '#1087#1088#1086#1082#1089#1080
        TabOrder = 2
        Text = '0.0.0.0'
      end
    end
    object Tab2: TTabSheet
      Caption = #1064#1072#1075' 2'
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1047#1072#1075#1088#1091#1079#1082#1072' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1080' '#1086' '#1076#1086#1089#1090#1091#1087#1085#1099#1093' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103#1093'...'
      end
      object LbFileSize: TLabel
        Left = 8
        Top = 64
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1056#1072#1079#1084#1077#1088' '#1092#1072#1081#1083#1072':'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Lb2: TLabel
        Left = 8
        Top = 136
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1044#1083#1103' '#1079#1072#1075#1088#1091#1079#1082#1080' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1085#1072#1078#1084#1080#1090#1077' '#1082#1085#1086#1087#1082#1091' "'#1044#1072#1083#1077#1077'"'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsUnderline]
        ParentFont = False
        Visible = False
      end
      object PbUpdate: TProgressBar
        Left = 8
        Top = 32
        Width = 457
        Height = 17
        Hint = #1048#1085#1076#1080#1082#1072#1090#1086#1088' '#1079#1072#1075#1088#1091#1079#1082#1080' '#1092#1072#1081#1083#1072' '#1089#1086' '#1089#1087#1080#1089#1082#1086#1084' '#1085#1086#1074#1099#1093' '#1089#1086#1086#1073#1097#1077#1085#1080#1081
        TabOrder = 0
      end
    end
    object Tab3: TTabSheet
      Caption = #1064#1072#1075' 3'
      ImageIndex = 2
      object Label7: TLabel
        Left = 8
        Top = 8
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1047#1072#1075#1088#1091#1079#1082#1072' '#1092#1072#1081#1083#1086#1074' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103'...'
      end
      object Label8: TLabel
        Left = 8
        Top = 56
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1061#1086#1076' '#1091#1089#1090#1072#1085#1086#1074#1082#1080':'
      end
      object Lb3: TLabel
        Left = 8
        Top = 136
        Width = 457
        Height = 13
        AutoSize = False
        Caption = #1059#1089#1090#1072#1085#1086#1074#1082#1072' '#1091#1089#1087#1077#1096#1085#1086' '#1079#1072#1074#1077#1088#1096#1077#1085#1072
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsUnderline]
        ParentFont = False
        Visible = False
      end
      object PbFiles: TProgressBar
        Left = 8
        Top = 32
        Width = 457
        Height = 17
        TabOrder = 0
      end
      object ParseBox: TListBox
        Left = 8
        Top = 72
        Width = 457
        Height = 57
        Hint = #1047#1076#1077#1089#1100' '#1086#1090#1086#1073#1088#1072#1078#1072#1077#1090#1089#1103' '#1093#1086#1076' '#1091#1089#1090#1072#1085#1086#1074#1082#1080' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103
        Style = lbOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 1
      end
      end
  end
   object BtnNext: TButton
    Left = 416
    Top = 208
    Width = 75
    Height = 25
    Hint = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1100
    Caption = #1044#1072#1083#1077#1077
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BtnNextClick
  end
end

Возникает ошибка Corrupt portfolio stream

Как бороться?

P. S.
В D2005-D2006 такой ошибки нет, она касается D6-D7 smile


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Alex
Дата 14.1.2006, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
А случайно этот dfm под D2005-D2006 не сохранялся до этого?


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Rrader
Дата 15.1.2006, 03:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Нет


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Guedda
Дата 15.1.2006, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Да нет. Проблема не в этом. Подробнее можно, где ты этот файл взял?
Мне кажется, что идет разногласие между pas и dfm.
У меня когда то такое было...


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Quadr0
Дата 15.1.2006, 12:08 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 09:47
  Вверх
Rrader
Дата 18.1.2006, 07:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Проблема решена. Нужно было удалить файл *.ddp smile

Я вспомнил, что для этого модуля я создавал диаграммы (баловался)


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1099 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.