Hallo Experten,
ich bin am Umschreiben von D7 Code auf XE6. Die meisten
UNICODE Probleme hab ich lösen können, doch klappt folgendes nciht.
Delphi-Quellcode:
function TForm1.verfiyifok(MyStream: TMemoryStream): string;
var
MSPosition: integer;(
begin
MSPosition := Pos('%PDF', PChar(MyStream.Memory));
if MSPosition > 0 then
begin
UpDate_LOG.Lines.Add(DateTimeToStr(Now)+': -> Artl.-Nr: '+gMyAN+' : Geladen');
Result:='Geladen';
end
else
begin
UpDate_LOG.Lines.Add(DateTimeToStr(Now)+': -> Artl.-Nr: '+gMyAN+' : nicht geladen');
Result:='nicht geladen';
end;
end;
IN D7 konnte ich das %PDF am Anfang des MYSTREAM.Memory ausfindig machen. Doch in XE6 klappt es einfach nicht, er schreibt immer nicht geladen raus.
Wer weiß Rat?
Danke