DGL • Thema anzeigen

PChar

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Stucuk

Betreff des Beitrags: PChar

Verfasst: So Mai 22, 2005 18:23

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Iv recently been trying to get my engine workign with dlls and come up with a snag. Since DLL's can't be sent stings i have to use PChars. The problem im having is setting the PChars of the entitys. Basicaly each property of the entity is set to the same "space" (a varible called Value) which doesnt' work.

Code:

 
procedure TBSPMap.ProcessEntity(Block : TStringList);
var
i,s,e,s2,e2 : integer;
Name,Value,ValueUC,SS : string;
Angle : Boolean;
begin
 
if not (block.count > 0) then exit;
 
inc(Data.numOfBSPEntitys);
Setlength(Data.Entitys,Data.numOfBSPEntitys);
 
Angle := False;
Data.Entitys[Data.numOfBSPEntitys-1].NewtonIndex  := -1;
Data.Entitys[Data.numOfBSPEntitys-1].Mid          := -1;
Data.Entitys[Data.numOfBSPEntitys-1].TargetId     := -1;
Data.Entitys[Data.numOfBSPEntitys-1].TargetedById := -1;
Data.Entitys[Data.numOfBSPEntitys-1].HintId       := -1;
Data.Entitys[Data.numOfBSPEntitys-1].Model2Id     := -1;
Data.Entitys[Data.numOfBSPEntitys-1].MoveableID   := -1;
 
// Process data and place in Entitys
 
try
for i := 0 to block.Count-1 do
begin
 
s := Pos('"',block.Strings[i]);
e := Pos('"',copy(block.Strings[i],s+1,length(block.Strings[i])));
 
Name := ansilowercase(copy(block.Strings[i],s+1,e-s));
 
SS := copy(block.Strings[i],e+2,length(block.Strings[i]));
 
s2 := Pos('"',SS);
 
e2 := Pos('"',copy(SS,s2+1,length(SS)));
 
ValueUC := copy(SS,s2+1,e2+1-s2);
Value := ansilowercase(ValueUC);
 
if name = 'classname' then
Data.Entitys[Data.numOfBSPEntitys-1].Classname := Value
else
if name = 'target' then
Data.Entitys[Data.numOfBSPEntitys-1].Target := Value
else
if name = 'targetname' then
Data.Entitys[Data.numOfBSPEntitys-1].Targetname := Value
else
if name = 'cursorhint' then
Data.Entitys[Data.numOfBSPEntitys-1].Hint := PChar(Value)
else
if name = 'team' then
Data.Entitys[Data.numOfBSPEntitys-1].Team := Value
else
if (name = 'filename') or(name = 'scriptname') or (name = 'ainame') then
Data.Entitys[Data.numOfBSPEntitys-1].ScriptName := Value
else
if name = 'model' then
begin
Data.Entitys[Data.numOfBSPEntitys-1].model := PChar(Value);
if Copy(Value,1,1) = '*' then
Data.Entitys[Data.numOfBSPEntitys-1].mid := Strtoint(Copy(Value,2,length(Value)))
else
Data.Entitys[Data.numOfBSPEntitys-1].mid := -1;
end
else
if name = 'model2' then
Data.Entitys[Data.numOfBSPEntitys-1].model2 := Value
else
if name = 'origin' then
begin
Data.Entitys[Data.numOfBSPEntitys-1].Origin := ParseEntityVector3f(Value);
Data.Entitys[Data.numOfBSPEntitys-1].OriginUsed := True;
end
else
if name = 'mass' then
Data.Entitys[Data.numOfBSPEntitys-1].mass := StrtoInt(Value)
else
if name = 'spawnflags' then
Data.Entitys[Data.numOfBSPEntitys-1].spawnflags := StrtoInt(Value)
else
if name = 'degrees' then
Data.Entitys[Data.numOfBSPEntitys-1].Degrees := StrtoInt(Value)
else
if name = 'angle' then
Data.Entitys[Data.numOfBSPEntitys-1].Angle := StrtoInt(Value)
else
if name = 'lip' then
Data.Entitys[Data.numOfBSPEntitys-1].Lip := StrtoInt(Value)
else
if name = 'speed' then
Data.Entitys[Data.numOfBSPEntitys-1].Speed := StrtoInt(Value)
else
if name = 'closespeed' then
Data.Entitys[Data.numOfBSPEntitys-1].Closespeed := StrtoInt(Value)
else
if name = 'frames' then
Data.Entitys[Data.numOfBSPEntitys-1].Frames := StrtoInt(Value)
else
if name = 'loop' then
Data.Entitys[Data.numOfBSPEntitys-1].LoopFrame := StrtoInt(Value)
else
if name = 'startonframe' then
Data.Entitys[Data.numOfBSPEntitys-1].StartFrame := StrtoInt(Value)
else
if name = 'wait' then
Data.Entitys[Data.numOfBSPEntitys-1].Wait := StrtoFloat(Value)
else
if name = 'random' then
Data.Entitys[Data.numOfBSPEntitys-1].Random := StrtoFloat(Value)
else
begin
if (name <> '') and (value <> '') then
begin
// Need to add support for unknowns sometime (used in func_multipul)
{inc(Entitys[numOfBSPEntitys-1].Unknown_No);
SetLength(Entitys[numOfBSPEntitys-1].Unknowns,Entitys[numOfBSPEntitys-1].Unknown_No);
Entitys[numOfBSPEntitys-1].Unknowns[Entitys[numOfBSPEntitys-1].Unknown_No-1].Name := Name;
Entitys[numOfBSPEntitys-1].Unknowns[Entitys[numOfBSPEntitys-1].Unknown_No-1].Value := Value;  }
end;
end;
end
except
// Add Error Message Here!
end;
 
end;
 

Note the cursorhint and model sections (only ones that are currently pchars). Im basicaly wondering how i can change this procedure so that each pchar is set to its own space rather than to the same space...

I h8 pchars.

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mai 22, 2005 18:51

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

i've just found some sample from www.delphipraxis.net:

Code:

//inside the dll
 
    function TestProc(SourceStr: PChar; var DestStr: PChar): Integer;
begin
  DestStr := StrAlloc(length(SourceStr) + 1);  //speicher für DestStr anfordern
  Move(SourceStr^, DestStr^, length(SourceStr) + 1); //inhalt von SourceStr nach DestStr kopieren
  //fals es keine binärdaten sind dann die abschließende #0 (Stringende) - if it is no binary data, append the trailing #0
  DestStr[length(SourceStr)] := #0; //bei DestStr noch ein #0 anhängen - one more #0 for deststr
  //falls es doch binärdaten sind ist es besser die Länge zurück zu geben - if it is binary data, better return the length
  result := length(SourceStr);
end;
 
procedure FreeMemFromTestProc(AChars: PChar);
begin
  StrDispose(AChars);
end;
 
 
//inside the main app
Quellcode:  markieren
procedure TForm1.FormCreate(Sender: TObject);
var LDestStr: PChar;
begin
  TestProc('abcdef', LDestStr);
  //do something with LDestStr
  FreeMemFromTestProc(LDestStr);
end;

maybe this can help you.

but why don't the tags work?!

Code:

test

_________________

"User Error. Replace User and hit Continue."

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Mo Mai 23, 2005 00:43

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Ahh that should work thx!

P.S i noticed the pascal tag didn't work too.... code one still works tho

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Tokter

Betreff des Beitrags:

Verfasst: Mo Mai 23, 2005 04:41

DGL Member

Registriert: Fr Dez 19, 2003 14:27
Beiträge: 107
Wohnort: Indianapolis, USA

You can also use FastShareMem http://www.codexterity.com/fastsharemem.htm. Just use this unit as the first unit in your dpr file and then you can use normal strings.

Nach oben

Stucuk

Betreff des Beitrags:

Verfasst: Mo Mai 23, 2005 14:35

DGL Member

Registriert: Mi Jul 21, 2004 22:39
Beiträge: 360
Wohnort: UK, Scotland

Id prefer to have pchars since the dll could be converted to C, etc. Tho thx for the sugestion.

_________________
Free Map Editor - Game Requirements - Stucuk.Net
-Stu

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » English » English Programming Forum

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 16 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.