Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.04 c
1-1082551231
lordvv
2004-04-21 16:40
2004.04.11
Интерфейс Delphi 5


9-1068311603
MrAngel
2003-11-08 20:13
2004.04.11
glVertexPointerExt в OpenGL.pas отсутствует...


1-1080139485
satron
2004-03-24 17:44
2004.04.11
Как получить конкретный символ в Memo ?


3-1081691505
Крутыш
2004-04-11 17:51
2004.04.11
Где найти нормальный компонент.


3-1079007952
gonta
2004-03-11 15:25
2004.04.11
Работа с Ole полями