Word to PChar

[lbccaleb]

wie konvertiere ich word zu pchar??

[Neutral General]

Hi,

Wie willst du ein Word in ein PChar konvertieren? Du kannst höchstens das Word als Pointer auffassen also irgendwie sowas wie PChar(Pointer(Word)) oder sowas, aber ob das dann was sinnvolles ergibt bezweifle ich...

Gruß
Neutral General

[SirThornberry]

oh, die Frage ist wohl eher was du vor hast. Bei einem Word werden 2 Bytes des Speichers als vorzeichenlose zahl angesehen. Ein PChar hingegen ist ein Pointer der auf ein einen Char zeigt.

[Neutral General]

Zitat:

Zitat von SirThornberry

oh, die Frage ist wohl eher was du vor hast. Bei einem Word werden 2 Bytes des Speichers als vorzeichenlose zahl angesehen. Ein PChar hingegen ist ein Pointer der auf ein einen Char zeigt.

Wobei mir beim lesen dieses Beitrags eingefallen ist das man das Word nicht mal vernünftig als Pointer interpretieren kann weil ein Pointer 4 Bytes groß ist..Also auch von mir die Frage nochmal: Was hast du vor ? :shock:

[lbccaleb]

mhh ich musste nen datum (systemtime) in einen text string verwandeln, ich habs jetzt aber gerade hinnbekommen...
hab auf die funktion format zugegriffen... das läuft erstmal, aber komischer weise nur bei einem von 7 tag angaben, bei den restlichen haut er das 2008 in kauderwelsch, hab noch nicht ganz raus wieso..

[DeddyH]

Zeig mal etwas Code.

[SirThornberry]

könntest du deinen Quelltext mal posten? Ich habe die Befürchtung die hast eine Funktion welche einen PChar zurück gibt welcher auf eine lokale Variable zeigt.

[DeddyH]

[OT] Äätsch, Jens, schneller :P [/OT]

[SirThornberry]

[OT]@Deddy: Dafür habe ich die Macht deine Beiträge verschwinden zu lassen und dann merkt niemand das du schneller warst :wink:
[edit] Das ist natürlich nicht ernst gemeint[/edit]
Jetzt aber zurück zum Thema
[/OT]

[lbccaleb]

Zitat:

Zitat von DeddyH

Zeig mal etwas Code.

ja hier das hab ich vor, um das mal kurz zu erklären ;-)
1. ich hab eine combobox, in der will ich ein bitmap vom wochentag anzeigen, und alle 6 tage nach dem heutigen tag!!
2. soll hinter jedem bitmap dann der jeweilige tag mit datum und jahr angegeben sein
3. wird das ganze in einer itemlist gespeichert, die ich dann mit einer for schleife durchgehe und den items der combobox zuweise!!

nun ist mein problem, ich wollte sowenig units wie möglich nutzen...

Delphi-Quellcode:

procedure SetItemInfos;
var
  TempSystemTime, NewSystemTime: TSystemTime;
  i, TempInt: integer;
  begin;
    GetLocalTime(TempSystemTime);

    for i := low(ItemInfo) to high(ItemInfo) do
      begin;
        if i = 0 then TempInt := 1 else TempInt := 0;

        GetLocalTime(NewSystemTime);

        TempSystemTime.wDay := NewSystemTime.wDay + i;
        ItemInfo[i].DayImage := TempSystemTime.wDayOfWeek + i - 1;
        ItemInfo[i].DayPos := TempInt;
        ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear]));
      end;
  end;

das hab ich bisher nur leider haut es mit einfach die tage raufaddieren nicht hinn ;-( hatte gehofft er aktualisiert das automatisch, aber das macht er leider nicht... sonnst geht es schon, bis auf einen kleinen fehler halt noch in der datums angabe, die item weist er der combobox zu und packt die ganzen daten rein, nur convertiert er hier nur komischer weise einen eintrag von 7 richtig, bei den anderen hat er fehler mit der 08!!

ps und ich weiß das ich es mit dem tag addieren so noch nciht lassen kann, werde mir nochwas einfallen lassen!!


edit:
achja diese zeile hier:

Delphi-Quellcode:

        if i = 0 then TempInt := 1 else TempInt := 0;

ist dafür gedacht, das der erste tag nen kleinen abstand z uden anderen in der combobox hat..

[DeddyH]

Wo wird denn TempSystemTime befüllt? Hab ich was übersehen?

[lbccaleb]

die hab ich dort als variablen, denn die werden beim ausführen der procedure neu eingelesen (augenblickliche zeit) und dann von dem zeitpunkt an, soll er mir halt 7 tage in der cbbox anzeigen..

[SirThornberry]

@deddy: ich glaub du hast was übersehen. wenn ich mich richtig entsinne erwartet GetLocalTime einen var-parameter.

[Die Muhkuh]

Dito,

Zeile 6:

Delphi-Quellcode:

GetLocalTime(TempSystemTime);

[lbccaleb]

hab mal nen screenshot von der cbbox gemacht:

[edit=SirThornberry]Bild in Anhang gepackt - Mfg, SirThornberry[/edit]

[DeddyH]

OK, eine Zeile nicht gesehen. Geht es nur darum, den Wochentag von einem Datum + x Tage zu ermitteln? Dann schau Dir nochmal meinen (editierten) Beitrag im anderen Thread an.

[SirThornberry]

der fehler liegt wie erwartet hier:

Delphi-Quellcode:

ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear]));

Grund: Das Ergebnis von Format ist außerhalb der Funktion nicht mehr verfügbar. Das ganze würde dem gleich kommen:

Delphi-Quellcode:

var
  abc: String;
begin
  [...]
  ItemInfo[i].DateText = PChar(abc);

Das Ergebnis liegt also auf dem Stack und nach verlassen der Funktion zeigt zwar der Zeiger noch auf diese Stelle aber sobald etwas neues auf den Stack gepackt wird, wird auch der Wert überschrieben der irgendwann mal dort stand.

Noch besseres Beispiel:

Delphi-Quellcode:

procedure GibZahlAlsString(Zahl: Integer): PChar;
var
  meinString: String;
begin
  meinString := IntToStr(Zahl);
  result = @Zahl[1];
end;

[lbccaleb]

Zitat:

Zitat von SirThornberry

der fehler liegt wie erwartet hier:

Delphi-Quellcode:

ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear]));

Grund: Das Ergebnis von Format ist außerhalb der Funktion nicht mehr verfügbar. Das ganze würde dem gleich kommen:

Delphi-Quellcode:

var
  abc: String;
begin
  [...]
  ItemInfo[i].DateText = PChar(abc);

Das Ergebnis liegt also auf dem Stack und nach verlassen der Funktion zeigt zwar der Zeiger noch auf diese Stelle aber sobald etwas neues auf den Stack gepackt wird, wird auch der Wert überschrieben der irgendwann mal dort stand.

ok und was kann ich zumindest dagegen schon mal tun??

[SirThornberry]

Die Frage kann man am besten beantworten wenn du uns zeigst was ItemInfo ist.
Zur Zeit ist bei dir

Delphi-Quellcode:

ItemInfo[i].DateText

ein Pointer (PChar ist nichts anderes). Wenn du also direkt in DateText Daten halten willst solltest du einen anderen Typ wählen. Anderenfalls musst du Speicher reservieren wo du die Daten dann hinpackst und darauf kannst du dann DateText zeigen lassen.

[Remko]

Maybe I don't understand the question right because of my bad German Language knowledge but it seems to me you want to display a systemtime as string? Why not use SystemTimeToDateTime and use format?

[lbccaleb]

ja klar hier:

Delphi-Quellcode:

type
  TComboBoxItemInfo = record
    DayImage,
    DayPos : integer;
    DateText : pchar;
  end;

[lbccaleb]

Zitat:

Zitat von Remko

Maybe I don't understand the question right because of my bad German Language knowledge but it seems to me you want to display a systemtime as string? Why not use SystemTimeToDateTime and use format?

because i compile without the needed units..

[SirThornberry]

Und warum hast du DateText als PChar definiert?
Willst du über dll-grenzen hinweg arbeiten? Wenn dem nicht so ist wäre es das einfachste du definierst DateText als String.

[lbccaleb]

hmm stimmt eigentlich mal sehen....

ok danke das geht schon mal, nun muss ich eigentlich nur noch wissen wie ich mit systemtime herrausfinde welcher wochentag ist, denn leider gehtest mit

Delphi-Quellcode:

systemtime.wday + 1;

nicht!! gibs noch ne möglichkeit???

[Remko]

I also defined DateTimeString function in JwaWinsta this is an api from utildll that (well the name says it all). It also takes care of localisation for you (it takes a filetime as input).

[lbccaleb]

yes, but i must use the units sysutils, math and types to compile the prog. i want without these units to get a small filesize.. i should be all nonvcl..

[Remko]

You don't need all that, it's all winapi:

// This is the version for NT Terminal Server, 2000, XP/2003 and Server 2008
function DateTimeString(DateTime: PFILETIME; lpBuffer: PWideChar): PWideChar;
stdcall;

// This is a wrapped for all OS versions
function DateTimeStringSafe(DateTime: PFILETIME; lpBuffer: PWideChar;
cchDest: SIZE_T): PWideChar; stdcall;

// This is the Vista version which takes an additional parameter with
// maximum buffer size (you have to set it)
function DateTimeStringVista(DateTime: PFILETIME; lpBuffer: PWideChar;
cchDest: SIZE_T): PWideChar; stdcall;

function DateTimeString; external utildll name 'DateTimeString';
function DateTimeStringVista; external utildll name 'DateTimeString';

function DateTimeStringSafe(DateTime: PFILETIME; lpBuffer: PWideChar;
cchDest: SIZE_T): PWideChar; stdcall;
begin
// Zero Memory
ZeroMemory(lpBuffer, cchDest * SizeOf(WCHAR));

// Are we running Vista?
if IsVista then
begin
// Vista version
Result := DateTimeStringVista(DateTime, lpBuffer, cchDest);
end
else begin
// Other OS's (including server 2008!)
Result := DateTimeString(DateTime, lpBuffer);
end;
end;

[lbccaleb]

Zitat:

Zitat von Remko

I also defined DateTimeString function in JwaWinsta this is an api from utildll that (well the name says it all). It also takes care of localisation for you (it takes a filetime as input).

is jwawinsta a single unit?? wehre can i find this??

[Remko]

It's part of the Jedi Apilib.