Главная страница
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.136 c
14-1079289142
Mox Fulder
2004-03-14 21:32
2004.04.11
А мне теперь есть, что делать...


14-1082103832
juiceman
2004-04-16 12:23
2004.04.11
C++


8-1071825862
Buffoon
2003-12-19 12:24
2004.04.11
FPS


1-1080308130
Fast
2004-03-26 16:35
2004.04.11
Помогите конветрнуть сишный хидер


14-1081881570
panov
2004-04-13 22:39
2004.04.11
Где найти дополнительное время?