Главная страница
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.03 c
14-1079469946
Andy BitOff
2004-03-16 23:45
2004.04.11
Почему вновь прибывшие на форум не жмут поиск?


3-1081396835
Серж
2004-04-08 08:00
2004.04.11
Как округлить число в процедуре Interbase?


6-1079517885
Triakin
2004-03-17 13:04
2004.04.11
Какие инструменты лучше использовать для обмена инф. в сети


6-1075632423
Nikolay
2004-02-01 13:47
2004.04.11
Подключение по LAN


14-1079698818
YurikGl
2004-03-19 15:20
2004.04.11
У меня частенько форум выдет следующее....