Главная страница
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.193 c
1-1082824349
Namo
2004-04-24 20:32
2004.04.11
как использовать UNICODE


4-1074512776
Max003
2004-01-19 14:46
2004.04.11
Как вызвать процедуру из чужой программы


3-1079423613
Лысый
2004-03-16 10:53
2004.04.11
SQL


1-1082467995
Ultr
2004-04-20 17:33
2004.04.11
Функция в DLL с типизированным результатом?????


14-1079679358
Парикмахер
2004-03-19 09:55
2004.04.11
Всплывающее меню контекстной помощи Windows