Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

OemToChar - Acces violation?   Найти похожие ветки 

← →
ПрогерШ   (2004-03-22 11:17) [0]

Мастаки, что не так? Нужно Оем конывертнуть в аски...


...
var FileS: TFileStream;
   StringS: TStringStream;
   OemBuf, AnsiBuf: string;
begin
 if not OpenDialog1.Execute then Exit;
 with dm.dsScheme do
 begin
   if State in [dsBrowse] then Edit;
   FileS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
   try
     StringS:=TStringStream.Create("");
     try
       StringS.CopyFrom(FileS, 0);
       OemBuf := StringS.DataString;
       OemToChar( PChar(OemBuf), PChar(AnsiBuf) );//Access Violatiom... user.dll
       FieldByName("SHORT_DESC").AsString := AnsiBuf;
     finally
       StringS.Free;
     end;
   finally
     FileS.Free;
   end;
 end;


---

← →
Плохиш   (2004-03-22 11:19) [1]

SetLength(AnsiBuf,Length(OemBuf))

---

← →
ПрогерШ   (2004-03-22 11:22) [2]

сенькс

---

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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c